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lor tachophobiacs. 


olf Pa love the rush of adrenalin that comes 
with sudden acceleration, we've got a C that’s 
just your speed: the exhilarating new Microsoft® 
C 6.0 Professional Development System. 

| Designed to get your blood racing in noth- 
ing flat with the fastest* slickest code available in 
the shortest, smoothest time possible. 

Thanks to some of the most sophisticated 
code optimizations around. 
| With this C, you get everything from reg- 
ister-based parameter passing to a globally opt- 
mizing code generator to complete loop optimi- 
zations. Plus new super-efficient based pointers 
that access far data instantly. 

And your code isn’t all that moves faster. 

Whether you're developing for MS-DOS; 
Microsoft Windows” or MS°OS/2 Presentation 
Manager systems, our brilliantly integrated Pro- 
grammer’ WorkBench propels , 
you through the creative proc- 
ess with precision tools. 

Including a new souped- 
up CodeView’ Debugger that 
not only debugs any size DOS 
or OS/2 application program, 
on any 286 or 386 machine, 
, but also gives you data-brows- ° 
| ingso you don’t have to constantly guess at values. 

To save even more time, our C Advisor is 
on-line and on-time whenever you need it. This 
complete hypertext reference not only gives you 
sample coding solutions, but it even lets you copy 
and paste them directly into your program. 

If you want to review part of your handi- 
work, our Source Browser helps you find it with 
a full call tree that literally draws you a map. 

For a free white paper with more details, 
| just call us toll-free at (800) 426-9400. 

Then get your hands on Microsoft C 6.0. 
The development system specially created 
for people whose only fear is being left behind. 

























































Microsoft.C 


_ | Microsoft C Professional Development System 


Compiler Performance: 

* New based pointers access far data with size 

and speed of a 16-bit pointer. 

¢ Register parameter passing: — fastcall passes up 
to 3 parameters in registers, and floating point 
values are returned on the coprocessor stack. 

¢ Function-level control over optimizations. 

¢ Integrated inline assembler. 

¢ Highly compliant with proposed ANSI standard 
(we pass 75 of 79 “Plum Hall” tests). 

¢ Incremental compilation in both DOS and OS/2. 

¢ Dramatically improved local code-generation. —~ 


Programmer’s WorkBench: 
¢ Designed by professional programmers, for 


professional programmers. 
¢ Complete integration of edit, make, debug cycle 
in both DOS and OS/2. 
¢ New Source Browser provides information on all 
aspects of your source code. 
¢ Microsoft C Advisor is an on-line reference for 
the environment, C Language, and Runtime 
Libraries. 
* New MAKE is now a full superset of 
XENIX/UNIX MAKE facility. 
y Specify all build options, includ- 
y ing target environment, from 
within development environment. 
* Takes advantage of OS/2 for back- 
fy vround operation of components— 
Y suchas compilation. 
¢ Open architecture: 3rd party tools and 
libraries can be easily installed. 


Microsoft CodeView Debugger: 

¢ Completely redesigned user interface. 

- Debugs nearly any size application on both 286 
and 386 machines under DOS by taking all but 
15K of CodeView out of the 640K address space. 

¢ Multiple file debugging. 

¢ Multiple memory views. 

* Array browsing. 

¢ Automatic “locals” window. 

Advanced Programming Techniques Manual 

answers the most popular programming questions 

with extensive commentary and sample code. 






















Making it all make sense 


*Comprehensive benchmark tests performed at Microsoft on an 8Mhz IBM PC/AT* with 2816K RAM and 80287 co, SSOM. 
Customers within the 50 United States, call (800) 426-9400. Customers in Canada, call (416) 673-7638. Outside the U.S. 
and Canada, call (206) 882-8661. © 1990 Microsoft Corporation. All rights reserved. Microsoft, the Microsoft logo, MS-DOS, 
MS and CodeView are registered trademarks and Windows and Making it all make sense are trademarks of Microsoft 

Corporation. PC/AT is a registered trademark of International Business Machines Corporation. 
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¢C TOOLS PLUS/6.0 
Concentrate on the creative aspects of development by 
integrating sophisticated features into your Microsoft C 6.0 
and QuickC applications with C TOOLS PLUS/6.0™. : 
C TOOLS PLUS version 6.0 is filled with many advanced SSF 
routines for developing high-powered C applications, in- 
cluding: virtual, stackable menus and windows with full 
mouse support and optional "drop shadows’; multiple virtual 
pop-up help screens; a miniature multi-line editor for gathering 
user responses in a robust fashion; a single function call which can move, resize, and 
promote a window or menu on top of all others; the ability fo update covered windows 
automatically when they are written to; support for EGA, VGA, and MCGA text modes 
including 30-, 43-, and 50-line modes; support for the enhanced (101/102 key) keyboard. 
All this and much more for only $149! C TOOLS PLUS/6.0 also contains functions for writing 
interrupt service routines; creating pop-up Memory resident applications using Interven- 
tion Code™, string translations and conversion; general memory "peeks" and "pokes"; 
access to the DOS PRINT utility; as well as many other general utility functions and macros. 
COMPLETE PROFESSIONAL PACKAGE. Blaise Computing’s function libraries offer easy to use solutions 
to your programming needs. You get source code, complete sample programs, and a comprehen- 
sive reference manual with extensive examples. Supports QuickC and Microsoft C 5.0 and later. 
ONLINE DATABASE. To speed the development process even further, C TOOLS PLUS/6.0 now features 
an online database compatible with the QuickC Advisor containing reference information for all 
C IOOLS PLUS functions, 
30 DAY GUARANTEE. If during the first 30 days you are not completely satisfied, we’ll refund your 
money. : 
Blaise Computing has produced a collection of tools over the years that are unsurpassed 
for reliability, flexibility and ease of use. Included are such widely acclaimed products as: 
C ASYNCH MANAGER $189 
NEW VERSION! This library of functions helps you add asynchronous communications capabilities to your applications programs. 
Version 3.0 has been upgraded with sophisticated modem control routines which reset, query, dial and answer your Hayes 
or compatible modem. Powerful new file transfer routines allow multi-file batch C(YMODEM), simultaneous and back- 
ground transfers with your choice of error correction. 
POWER SCREEN $149 
NEW VERSION! A screen management system to help you create sophisticated data input 
applications. For Microsoft C, Turbo C, Turbo Pascal, QuickPascal and QuickBASIC. 
Turbo C TOOLS/2.0 $149 
A complete library of C functions equivalent to those found in C TOOLS 
PLUS/6.0 only carefully crafted to supplement Turbo C. 
POWER SEARCH $149 
NEW! A library of C functions that search for character strings or 
regular expressions in DOS and OS/2 based applications. 
Call (800) 333-8087 Nea 
FAX (415) 540-1938 


BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 
CIRCLE NO. 91 ON READER SERVICE CARD 
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THE DD/ HYPERTEXT PROJECT 

by J. Scott Johnson 

A behind-the-scenes look at the DD/ hypertext project by the programmer who put it - 
together. 


BUILDING A HYPERTEXT SYSTEM 

by Rick Gessner 

Rick uses Turbo Pascal to build a page-oriented, text-only hypertext system that has 
embedded “hot-links.” His system includes both a screen editor and a hypertext engine. 


A SELF-REFERENTIAL HYPERTEXT ENGINE 

by Todd King 

Here’s another approach to hypertext systems. This one, written in C, is ideal for 
context-sensitive help or source-code documentation projects. 


BUILDING AN EFFICIENT HELP SYSTEM 

by Leo Notenboom and Michael Vose 

Knowing how help files and a hypertext engine interact is central to effective on-screen 
documentation. 


C++ FILE OBJECTS 

by Kevin Weeks 

The key to efficient programming using object-oriented languages is having a good base 
class. 


A PIXEL ORDERING ALGORITHM 

by Norton T. Allen 

Recognizing the general character of an image early in the display process lets you begin 
fine-tuning much sooner. 


LZW REVISITED 
by Shawn M. Regan 
Shawn enhances this popular data compression algorithm. 


EXAMINING ROOM 


EXAMINING INSTANT-C 


by Andrew Schulman 
An interactive environment such as Rational Systems’ Instant-C takes a lot of the pain out 
of 80386 protected-mode programming. 


PROGRAMMER’S WORKBENCH 


ACCESSING HARDWARE FROM 80386 PROTECTED MODE: PART II 

by Stephen Fried 

Steve argues that the only use of FAR pointers in 80386 code is in operating system kernels. 
To make his point, he examines ports and interrupts. 


COLUMNS 


PROGRAMMING PARADIGMS 


by Michael Swaine 
Michael shares different techniques for adding text links to HyperCard. 


C PROGRAMMING 


by Al Stevens 
Al develops an indexing technique that is a loose adaptation of the B-tree. 


STRUCTURED PROGRAMMING 

by Jeff Duntemann 

Heap fragmentation, and how to manage it in Pascal and Modula-2, are Jeff's topics 
this month. 
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In July, we'll present our annual Graphics 
Programming issue, beginning with a su- 
percharged version of Cohen-Sutherland’s 
classic line-clipping algorithm. We'll also 
look at ways to draw better circles faster 
and examine Bézier curves. 
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FORMS: true data-entry forms available with add-on module. Data valid- 
ation, range-checking, pop-up menus, help lines, dBASE-like picture strings. 


CASE TOOLS: on-screen design tools for code generation of menu 
structures and data-entry forms. 
SOURCE: library source is available in all languages. 


TASKING: Fore & background tasking capability allows GCI tasks to 
proceed as a background activity. 


BGI or META: Works with Borland Graphics Interface or MetaWindow 
from Metagraphics Software Corp. 


NO RISK: 30-day money back warranty, free technical support, no 
licensing, no royalties. 
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C Network Compiler. 
C Network Compiler Run. 
C Network Compiler Run 386. 


Introducing Ss 
C Network Z 
Compiler/386. 

Introducing 
another first from 
Novell—the first net- 
work compiler for 
developing distribut- 
ed applications. 

C Network 
Compiler/386 
gives you the fast- 
est, most stream- 
lined code you've 
ever seen, running 
on NetWare’ 386, 
the fastest, most 
efficient network operating sys- 






tem we've ever developed. WATCOM Systems Inc., and are Call us and see how fast our 
C Network Compiler/386 is optimized for use with NetWare. C Network Compilers can make 
a complete and integrated set of Besides the powerful ANSI your applications run. And start 
NetWare 386 programming tools C compiler, enhanced debug- writing applications today that 
that generates 32-bit, native- ger, linker, and other utilities, will satisfy the network comput- 
mode 386 code. Now you can with our network compilers you ing needs of the next decade. 
use a standard programming have the whole library of NetWare _¢ Network Compiler —US$695 
tool to conquer the complexities application programming C Network Compiler/386 —USS995 
of building server applications. interfaces, including Btrieve, at 
And for building client your command. 


applications, we offer the DOS That gives you a direct link 
version of C Network Compiler into NetWare, the leading net- 
for the entire 80x86 processor — work operating system with the 
family. Both compilers are based world’s largest installed base of 


Call before you write. 912-346-8380 


©1989 Novell, Inc., Novell Development Products, #917, P.O. Box 9802, Austin, Texas 78766 
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P uttl Nn his issue of DD] showcases the power and promise of hypertext technology, not just in theory 
§ but in practice. Thanks to Scott Johnson and the crew at NTERGAID (developers of the Black 


H Th | t Magic authoring system, Hyperwriter, and other hypertext development tools), we've taken 
yp er Cory Nlo the exciting (and as far as I know, unprecedented) step of providing you with an electronic 
° “hypertexted” edition of DDI. 

H yp er lis rac [ Ice What can you do with a hypertext version of DD? Think about how you usually read DD/: You 
look at the Table of Contents, spot an article that seems interesting, turn to the appropriate page, 
and begin reading. When the article makes reference to a figure, you turn more pages. And when 
you come to a reference to source code listings, you usually flip halfway through the magazine 
while trying not-to lose your place. 

Hypertext changes this. As you peruse the Table of Contents on your PC screen, you position the 
cursor on the title of an article and call up its description, the author’s biography, or “turn” to the 
article itself. When reading the article and encountering a “‘see Listing One” or similar message, you 
simply click on the message and the listing appears on the screen. 

Getting the hypertext edition of this issue is easy. It comes at no extra charge when you order 
this month’s source code listing disk. Alternatively, you can download the electronic issue from the 
DD] Forum on CompuServe. (For details, look for the “Availability” notices at the end of 
just about every article; see page 33, for example.) 

Since the hypertext document is built around the Hyperwriter runtime engine, you don’t need 
any special software. You simply “self” extract the file and run it. You will need a PC with 640K of 
memory, and a mouse makes it a lot easier to use. For more details on the system and an enhanced 
version that uses bit-mapped graphics, see this month’s lead article “The DD/ Hypertext Project” 
where Scott describes how he put the edition together. 

Where do we go from here? Consider that if you’re like most readers, you keep back issues of 
DDJ as reference material. Wouldn’t it be great to have 15 years worth of DD/ at your fingertips, 
cross-referenced and linked on CD-ROM? You could then search for a specific topic or algorithm, 
bring up all versions of it, examine the code, and then paste it into your application. No, we aren’t 
planning on this right away, but it does give us something to dream about. 


All the news about hypertext isn’t necessarily fit to print, however. Why? Because the trademark 
buzzards are at it again, this time circling over the term “hypertext” itself. It seems that a company 
called Hypersystems S.R.L of Torino, Italy has applied for a U.S. trademark for “HyperText,” a 
stylized version of the term “hypertext.” And if the use of ® in their product literature is any 
indication, the company seems to be claiming a trademark on the stylized term “HyperMedia” too. 

Even though Hypersystem’s U.S. attorney told me that his client has entered a disclaimer for 
generic use of the term “hypertext,” hypertext and hypermedia developers are nonetheless up in ~ 
arms, and several, including NTERGAID, Owl International, and Autodesk, have filed oppositions 
with the U.S. Patents and Trademarks Office. 

The rule of thumb is that if a word is either descriptive or generic, the Trademark Office won’t 
issue a trademark. To me, “hypertext” seems descriptive because it simply describes a system of 
non-linear reading and writing and it is generic because it is commonly used in magazines, books, 
dictionaries, and other forms of documentation. 

If you’re as annoyed by this as I am, you should know about a couple of avenues of protest. 
Software developers who have a hypertext-based product, and therefore a vested interest in seeing 
the term not enter the Calcutta of trademarks, can file an official “Notice of Opposition,” while 
members of the general public can send a “Letter of Protest.” 

If you believe that a trademark on the term “hypertext” would damage you or your product in 
some way, you should file a Notice of Opposition with the Trademark Trial and Appeal Board. 
You'll have to pay a fee and you must “‘set forth a short and plain statement” stating how you 
would be damaged by the trademark. 

Letters of Protest should be sent to the Office of the Director of the Trademark Examining 
Operation. The purpose of your letter should be “‘to bring to the Office facts that could affect or 
prevent the registration of the mark .... The letter must contain proof and support of the 
information ...” before your protest will be considered. 

For more information about either the Opposition or Protest, contact the U.S. Department of 
Commerce, Patent and Trademark Office, Washington, DC 20231. 

In closing, let’s not forget that Ted Nelson, now at Autodesk, coined “hypertext” in 1963 while 
Doug Englebart, now at Stanford University, defined the technology even before that — and neither 


found it necessary to trademark the word. 
jr Jonathan Erickson 


editor-in-chief 
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The OS for over-achievers’ 


QNX programmers have a decided advantage. 


You see, people who use QNX enjoy the 
freedom that comes only with a flexible, 
modular OS. They appreciate the elegance 
of a message-passing architecture. And 
they marvel at the fact that QNX runs so 
lean — under 150K—yet out-performs any 
other PC operating system. 


QNX users never worry about whether their 
applications will make it at runtime, because 
they know QNX has proven itself again and 
again in the real world. 


It's no wonder that QNX users have achieved 
so much since the product was first released 
for the PC in 1982: over 80,000 systems 
installed in 47 countries world-wide, in all 
kinds of applications — from making cars 
to selling books to handling online credit 
card transactions. 


One reviewer dubbed QNX “The multi- 
everything Os.” Now, you might expect 


multiuser and multitasking, but realtime? 
And integrated networking? And true 
distributed processing? Best of all, these 
terms take on a new meaning with QNX. 


Multiuser, for instance, means up to 32 
terminals per micro. Multitasking 
cashes out as 150 tasks per machine. 
Realtime means not only priority-driven, 
preemptive task scheduling, but also speed: 
at 6,896 task switches/sec on a 16MHz 286, 
QNX is at least a full order of magnitude 
faster than a typical UNIX system. Inte- 
grated networking means you won't 
need yet another layer of software to set up 
a LAN, and you can use any mix of 
Intel-based micros —from vintage ’81 PCs 
to PS/2s. 


Distributed processing with QNX 

sounds too good to be true. But it is: Any 
task can access any resource — programs, 
files, devices, even CPUs — without going 
through the bottleneck of a central file server. 


Besides the satisfaction that QNX developers 
get from using a fast, powerful, and flexible 
OS, did we mention that they also enjoy 
Sree technical support? 


If you’re wondering why you don’t already 
know all about this great 0s, you could try 
asking the over-achievers who are smugly 
guarding the secret of their success. 


Better yet, give us a call. We'll tell you 
everything you need to know to become an 
over-achiever yourself. 





For more information or a free demo disk, 
please phone (613) 591-0931. 


Quantum Software Systems Ltd., 175 Terrence Matthews Crescent, Kanata, Ontario, Canada K2M 1W8 


QNX is a registered trademark of Quantum Software Systems Ltd., UNIX is a registered trademark of AT&T. PS/2 is a registered trademark of International Business Machines Corporation. 


©1989 Quantum Software Systems Lid. 
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Hidden Secrets 
Dear DDJ, 
The S-CODER algorithm Robert Stout 
presented in the January 1990 issue of 
DDJ seems reasonable, but the pro- 
grams using it (Listings One and Four) 
don’t give adequate protection against 
Kerckhoffs superposition. This 19th- 
century technique is mentioned in the 
cryptographic hobby literature (perhaps 
in Secret and Urgent by Fletcher Pratt 
or The Codebreakers by David Kahn). 
The method is not very computation- 
ally intensive, as one might expect given 
its age. | 

Consider Listing One. Suppose NF 
files are encrypted with the same key. 
Since cryptextl] does not depend on 
the plaintext, all the files are encrypted 
by XORing with the same byte stream 
X(1], X{2],... If Pli,j] is the ah byte in 
the jth plaintext file and Cli,j] is the ih 
byte in the jth ciphertext file we have 


Cli] = Plij] XOR Xfi 


If we form the set of bytes Cli,j], j = 
1,...NF for some fixed i, all these 
bytes are encrypted by XORing with 
the same byte. We can readily find the 
value of X[i] that decrypts this set of 
bytes most resembling plaintext. For 
example, if we assume ASCII plaintext, 
the space character will be overwhelm- 
ingly the most common (ordinarily) and 
Xli] = Gnost common byte in the set 
Cli,j], j =1,..., NF) XOR <space> will 
be right most of the time. We can do 
this for each value of i separately with- 
out worrying about the recursion relat- 
ing the Xlils. 

For Listing Four the first thing to 
observe is that the transposition is keyed 
with a sequence of random numbers 
whose seed is in the cryptanalyst’s pos- 
session. He can thus remove the trans- 
position at will. The other problem is 
that crypt_ ptris initialized to (file length) 


8 


mod (key length). The file length is not 
concealed from the analyst, however, 
and the key length might well be less 
than 20. With several hundred files en- 
crypted with the same key in his pos- 
session, the analyst can assume a key 
length and then group together sets of 
files whose lengths do not differ modulo 
the key length. He can then still use the 
superposition method on these sets of 
files. If he has assumed the wrong key 
length he will quickly notice that the 
sets of bytes Clij], j = 1,..., NF will 
have frequency distributions that are 
too smooth. 

I suggest two changes. First, the ran- 
dom number seed should depend on 
cryptextl] so the analyst will need to 
deal with a nontrivial transposition. Sec- 
ond, the initial values of the bytes in 
cryptext{] should be modified using the 
sum of many or all of the bytes in the 
plaintext so that the chances of many 
files having identical key streams XIi] 
will be negligible. This sum of bytes 
can be put openly in the file header 
along with the length, or some more 
devious method chosen. 

Stewart Strait 

San Diego, Calif. 


Bob responds: First of all, thank you for 
your comments. As suggested in the 
article, S-CODER isn’t necessarily an 
end in itself, but an embeddable en- 
cryption engine. The final listing in the 
article begins to suggest ways to create 
more secure applications, although the 
example I used is subject to fairly straight- 
forward cryptanalysis. This, inciden- 
tally, was deliberate, leaving open the 
option of embedding S-CODER in a 
more secure wrapper as a challenge to 
Critics. 

Aside from the principle that S- 
CODER should be considered more of 
a building block than anything else, 
the two primary points I'd like to stress 
are that: 

1. The unembellished S-CODER en- 
gine was not suggested as being par- 
ticularly secure when faced with known 
plaintext analysis, but is rather more 
suitable for short-term security or un- 
known plaintext applications. In this 
sort of application, the only require- 
ment would be that the key is longer 
than the longest item of plaintext, which 
might be known by implication (for 
example, words like “‘the,”’ a company 
name, etc.); 

2. A truism of data security is that a 
theoretically secure method known to 
everyone (e.g., DES) is often less desir- 
able than a theoretically less secure 
method (e.g., an enhanced algorithm 
using an embedded S-CODER engine) 
which is not known. S-CODER buried 


within an unknown block transposi- 
tion cipher as suggested in the article, 
or something equally (or even more) 
obscure presents the cryptanalyst with 
the immediate problem of classifying 
the algorithm before being able to break 
it. Knowing only that S-CODER is bur- 
ied in there somewhere is of little help 
since S-CODER is a stream cipher and 
any enhanced application will ran- 
domize the serial dependencies of the 
S-CODER encryption. 

Addressing your specific objections, 
cryptextl] is only independent of the 
plaintext during the first pass through 
it. The ability (suggestion, actually) to 
set crypt_ptr at some arbitrarily ran- 
dom starting point within cryptext 
makes the kind of analysis you suggest 
much more difficult. If we assume that 
the initial value of crypt_ptr is deter- 
mined by some unknown feature of the 
plaintext, the relationship betweeni and 
j in your example will be randomized. 
In your second point, you're absolutely 
correct that the implementation in List- 
ing Four is flawed in that the informa- 
tion used to provide the additional se- 
curity is openly available to the cryp- 
tanalyst. Any conceivable method used 
to conceal the file length would remove 
this objection. Once this vital piece of 
information is concealed, the next step 
is to modify the actual function within 
which S-CODER is embedded. Ideally 
it should be fast, as is the block transpo- 
sition cipher shown in the listing, but 
the exact method should be known only 
to the implementor. This is what I meant 
above when I said that an unknown 
method may offer more security than 
a better, yet known, method. The real 
value of Listing Four is in showing that 
such methods needn't sacrifice any sig- 
nificant performance over the raw S- 
CODER algorithm to offer significant 
levels of security. One of the purposes 
of the article was to encourage people 
to think of how to write practical soft- 
ware rather than worry about theory 
so much. I welcome your contribution 
and will consider your suggestions in 
future applications. 


Fighting Software Patents 
Dear DDJ, 
Recently your magazine lightly touched 
on the subject of software patents. In 
the April 1990 issue of Technology Re- 
view (Building W59, MIT, Cambridge, 
MA 02139), Brian Kahin presents a fright- 
ening view on the subject. Even if part 
of what he envisions comes to pass, 
software as an entrepreneurial busi- 
ness could be destroyed. I recommend 
this article to all who work in the art 
and science of software. 

(continued on page 12) 
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QUICKLY. 


With ROM-executable DR DOS, you can now shorten your time to market, lower your 


development costs, and produce the best solution possible. Fast. 


DR DOS provides the features that get your product to market quickly: standard DOS API 
environment, ROM-executability, unique BatteryMAX.. battery life extension technology, 
designed to support PC- and non-PC-compatible platforms, all of this with support from 
Digital Research design engineering services. 

So whether you’re developing a battery-powered notebook, personal word processor, or 


an intelligent controller, make the choice of serious system developers. Specify DR DOS. 
And make it quick. 


Call Digital Research for more information at (800) 443-4200. 


DR DOS. 


Digital Research « 


WE MAKE COMPUTERS WORK 





Digital Research offers a full line of operating systems from single-user DR DOS..; multitasking, 
multiuser Concurrent. DOS; to real-time, multitasking, multiuser FlexOS... 


Digital Research is a registered trademark, and the Digital Research logo, DR DOS, BatteryMAX, Concurrent, and FlexOS are trademarks of Digital Research Inc. Copyright © 1990, Digital Research Inc. 
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YEAR.» 
THEY ALWAYS 
HAVE THE 
BEST PRICES! 


386 CONTROL PROGRAMS 


DESQview 386 
Microsoft Windows/386 
VM/386 

VM/386 MultiUser 
VM/386 MultiUser Starter 


386 DEVELOPMENT TOOLS 


386 ASM/LINK 


NOT 


ANOTHER CATALOG! 


PROGRAMMER'S PARADISE | 


LIST OURS 


190 
195 
245 
895 
395 


495 


Lahey F77L-EM/32 (w/ OS/386) 1090 


Lattice C 286 (w/ extension) 
Lattice C 386 (w/ extension) 


495 
895 


Novell C Network Compiler/386 995 


Paradox/386 
WATCOM C 8.0/386 Prof. 


WATCOM C 8.0/386 Standard 
ASSEMBLY LANGUAGE 


Advantage Disassembler 
ASMFlow 

ASMTool 

MS Macro Assembler 
OPTASM 

Re:Source 

Sourcer w/ Pre-Processor 
Turbo Debugger & Tools 
Visible Computer: 80286 


BASIC COMPILERS 
MS BASIC Prof. Devel. System 
Power Basic 

QuickBASIC 

True BASIC 


BASIC LIBS/UTILITIES 
db/LIB 

DiaLogic 

GraphPak 

GraphPak Professional 
P.DQ: 

ProBas 

ProBas Toolkit 

ProMath 

QBase and Quickscreen 
QuickComm 

QuickMenu 

QuickPak 

QuickPak Professional 
QuickPak Scientific 
QuickScreen 
QuickWindows Advanced 


C COMPILERS 
C Network Compiler 
Lattice C 6.0 
Microsoft C 6.0 

MS Quick C 


MS QuickC w/ QuickAssembler 


Top Speed C 

DOS Professional 

OS/2 Professional 
Turbo C 
Turbo C Professional 
WATCOM C 8.0 Professional 
WATCOM C 8.0 Standard 


895 


1295 


895 


295 


99 | 


90 
150 
125 
150 
140 
150 
100 


495 
110 

99 
100 


159 
79 
79 

149 
99 

135 
29 
99 

149 

139 
59 
79 

149 
79 
79 

149 


695 
250 
495 

99 
199 
199 
399 
495 
150 
250 
495 
ee Je! 


169 
139 
209 
839 
339 


435 
979 
395 
715 
799 


HAS THE ONLY ONE 


| NEED! 





We'll Beat The Competition’s Advertised Prices! 


LIST OURS 
C++ 
C+4+/Views 495 419 
Guidelines C++ 295 269 
NDP C++ 495 479 
Zortech C++ Debugger 150 129 
Zortech C++ 200 165 
Developer's Edition 450 399 
Zortech C++ Tools 150. 42 
Zortech C++ Video Course 500 449 
C-COMMUNICATIONS 
Breakout II 125 99 
C Asynch Manager 3.0 189 139 
Essential Communications 329 299 
Greenleaf Comm. Library 299 249 
Greenleaf ViewComm 559 489 
SilverComm C Async Library 249 209 
View-232 189 149 
C-FILE MANAGEMENT 
AccSys for dBASE or Paradox 395 335 
w/ source 795 675 
Btrieve 245 185 
Btrieve for DOS 3.1 Networks 595 449 
C-Index Plus 195 175 
C-ISAM 225 209 
Codebase IV 295 219 
CQL w/ PASS 395 349 
c-tree 395 315 
dBC Ill 250 229 
dBC III Plus 500 439 
db_FILE Bundle 295 249 
Essential B-Tree w/ source 198 149 
FairCom Toolbox - Prof. Edition 1095 789 
FairCom Toolbox - Special 695 509 
Informix Products CALL CALL 
Xtrieve PLUS 595 459 
C-GENERAL LIBRARIES 
C TOOLS PLUS/6.0 149 109 
C Utility Library 249 199 
Greenleaf Functions 229 209 
Greenleaf SuperFunctions 299 239 
Power Search 149 109 
Turbo C TOOLS/2.0 149 109 
C SCREENS 
Greenleaf DataWindows 395 339 
Hi-Screen XL 149 129 
JAM 595 529 
Panel Plus 495 395 
Vermont Views 395 CALL 
Vitamin C 225 169 
VC Screen 149 139 
C-UTILITIES/OTHER 
Clear + 200 169 
C-Terp 300 219 
Code Runner 149 135 
Heap Expander 80 70 
HyperWindows 99 90 
PC-lint 139 109 
PCYACC Professional 495 469 
TimeSlicer 295 279 
w/ source 1000 899 





LIST OURS 

COBOL LANGUAGE 
Micro Focus: 

COBOL/2 w/ Toolset 1800 1499 

Personal COBOL 149 129 
MS COBOL 900 629 
Realia COBOL 995 849 
SCREENIO 400 375 
CODE GENERATORS 
Logic Gem 99 89 
Matrix Layout 2.0 200 169 
PRO-C 399 339 
DATABASE DEVELOPMENT 
Clarion 2.0 695 499 
Clipper 5.0 795 519 
dBASE IV 795 489 
dBFast/PLUS 345 295 
dGE 195 178 
FlashTools! 89 79 
FoxPro 795 635 
Magic PC 299 249 
R&R Report Writer 150: #2 
R&R Code Generator 150 129 
Say What?! 50 45 
SilverComm Library 2.0 189 165 
Tom Rettig’s Library 100 =80 
UI2 Version Two 595 479 
DEBUGGERS (DOS) 
MultiScope 179 435 
OPTDEBUG 150 12 
Periscope 1/512K 495 42 
Periscope II 175 425 
Periscope II-x 145 105 
Periscope III 1395 1069 
Periscope II] PLUS 1795 1519 
Periscope IV/16, 20,25 MHz CALL CALL 
Pfix86plus 295 259 
Sherlock 195 475 
Turbo Debugger & Tools 150 +105 
DOCUMENTING/ 
FLOWCHARTING 
Clear+ 200 169 
C-Clearly 130 «115 
Flow Charting I+ 229 185 
Interactive Easyflow 150 425 
Paginate 100 79 
Source Print 99 89 
The Documentor 295 245 
Tree Diagrammer 99 89 
EDITORS 
BRIEF 3.0 199 CALL 
Edix 195 165 
EDT+ 295 275 
EMACS 325 265 
Epsilon 195 138 
KEDIT 4.0 150 125 
MKS Vi 149 129 
Multi-Edit Professional 179 159 
Norton Editor 75 59 
SLICK Editor 195 475 
Sage Professional Editor 295 249 

w/ Mouse 395 335 
SPF/PC 245 199 
VEDIT PLUS 185 CALL 
EMBEDDED SYSTEMS 
Link & Locate ++ 395 329 
Link & Locate ++ Extended 479 395 
Paradigm Locate 295 259 
FORTRAN LANGUAGE 
Grafmatic 135 119 
Lahey F77L 595 535 
Lahey Personal FORTRAN 77 95 89 
MS FORTRAN 450 299 
Plotmatic 135 418 
RM/FORTRAN 595 499 
GRAPHICS LIBRARIES 
Baby Driver 250 199 
Essential Graphics 399 349 
Font-Tools 150. 449 
Font Window 125 109 
Graf/Drive Plus Personal 149 135 
Graf/Drive Plus Developer's 299 269 
GraphiC 5.0 395 319 
Graphics-MENU 195 475 

Data Entry Design 99. 3s 

Data Entry Module 59 §3 
GSS Graphics Devel. Toolkit 595 525 
HALO 395 279 
HALO Window Toolkit 595 419 
Icon-Tools/Plus 150 119 
Menuet 250 199 
MetaWindow 250 209 
MetaWindow Plus 325 289 
PCX Effects 99 89 
PCX Programmer’s Toolkit 195 | 175 
PCX Text 149 135 
Turbo Geometry Library 200 179 
LINKERS/LIBRARIANS 
Plink86plus 495 395 
PolyLibrarian II 149 135 
.RTLink 295 265 
-RTLink/Plus 495 419 


LIST OURS 


MACINTOSH 
FoxBASE + / MAC 495 299 
MacFortran/ 020 495 445 
Smalltalk/V MAC 200 169 
Think C 249 165 
Turbo Pascal 100 75 
MODULA-2 
LOGITECH Modula-2: 
Compiler Pack 99 7 
Development System 249 199 
TopSpeed Modula-2: 
B-Tree Toolkit 149 135 
Communications Toolkit 149 135 
Compiler Kit 100 =89 
DOS 3-Pack 200 179 
OS/2 TOOLS / 
Brief 199 CALL 
CASE:PM for C 1495 1420 
Epsilon 195 459 
MS OS/2 Pres. Mgr. Softset 150 105. 
MultiScope 449 345 
PCYACC 395 359 
Smalltalk/V PM 495 395 
Vitamin C (OS/2) 225 165 
PASCAL LANGUAGE 
Asynch PLUS 149 115 
B-tree Filer 125 — 409 
MS QuickPASCAL 99 69 
Object Professional 150 109 
Power Tools PLUS/5.0 149 109 
Topaz 75 
Turbo Analyst 99: 9s 
TurboMAGIC 199 179 
Turbo Pascal 5.5 150 105 
Turbo Pascal 5.5 Professional 250 175 
Turbo-Plus 5.5 199 | 459 
Turbo Professional 5.0 125 109 
PROTOTYPING 
Dan Bricklin’s Demo II 195 | 359 
Grasp 199 _ #29 
Instant Replay III 150 : 435 
ProtoFinish 300 269 
Show Partner F/X 350 319 
Soft Demo 80. 7 
SMALLTALK 
Smalltalk-80 (386) 595 S35 
Smalltalk/V 100 85 
Smalltalk/V 286 200 169 
Smalltalk/V MAC 200 169. 
Smalltalk/V PM 495 399 
WINDOWS (MS) TOOLS 
Actor 2.0 
Case:W 
C-Talk/Views 
dBFast/Windows 
DialogCoder 
MS Windows Development Kit 
MultiScope 
ProtoView 
RFFlow 


Whitewater Resource Toolkit 
WindowsMAKER 
WinTrieve 





c-tree™ by FairCom® 
Affordable, ultra high performance, 
multi-threaded, transaction processing 
server. Intermediate transaction saves 
points. Audit logs allow data and index _ 
restoration to any previous state. True _ 
on-line recovery. High level of user __ 
concurrency, individual record locking, 
and automatic deadlock detection. 


List: $395 Ours: $315 


_ CASE:PM for “C" 2.0 
by Caseworks . 
A prototyping, code generating, and 
maintenance too] that monitors the SAA — 
guidelines to let programmers develop _ 
SAA compliant applications for the OS/ _ 
2 Presentation Manager more quickly __ 
and easily than ever bee — 
List: $1495 Ours: $1420 


Datajunction = 

| by Tools & Techniqu 

| Universal conversion too! 

| to and from all popular databas 

_ spreadsheet, ASCII and binary fi 

Logic available to ee Ae ange 
oe _ 
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____ backed by the 
following guarantee”: 
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vice and support. 


roducts listed here are 


ald you see one of these | 
ducts listed at a lower 


Je'll beat the price, and 
offer our same quality © 


LIST OURS 
XENIX/UNIX 
Epsilon 195 169 
Interactive 386/ix Complete 1239 929 
Interactive 386/ix Comp. M/U 1735 1299 
Interactive (All other products) CALL CALL 
JAM 1050 839 
JAM DBi 975 779 
LPI-BASIC 695 569 
LPI-COBOL 1495 1199 
LPI-FORTRAN 995 7/99 
LPI-PL/I 1995 1599 
MKS RCS 395 335 
MKS Trilogy 119 105 
Micro Focus VS/COBOL Comp. 2495 2119 
Panel Plus II 795 639 
RM/COBOL 85 (Unix 386) 2250 1909 
SCO 286 Complete 1495 1195 
SCO 386 Complete 1595 1275 
SCO (All other products) CALL CALL 
Terminal Control 995 849 
VEDIT PLUS 285 249 
ADDITIONAL PRODUCTS 
APL*PLUS 695 549 
Janus Ada/Compiler System 300 269 
Lattice RPG 1600 1285 
Meridian AdaStudent 50 «645 
Meridian Ada Developer's Kit 1095 985 
MKS AWK 99 85 
Personal Rexx 150 139 
SMS 495 445 
Softprobe 86/TX 395 CALL 
Spellcode 99 89 


APPLICATION SOFTWARE 


COMMUNICATIONS 

BLAST II 250 
Carbon Copy Plus 199 
DeskLink 170 
Laplink III 150 
PC Anywhere III 145 
Procomm Plus 75 
SideTalk 120 
DESKTOP PUBLISHING 
Adobe IIlustrator 695 
Corel Draw! 595 
Gem Desktop Publisher 299 
HALO DPE 195 
Lattice HighStyle 375 
MKS SQPS 495 
PageMaker 795 
Ventura Publisher 895 
MATHEMATICS 

Derive 200 
MathCAD 495 
Mathematica 386 


SCIENCE & ENGINEERING 


AutoCAD Release 10 3000 
AutoSketch 150 
ChiWriter 150 
Control System Toolbox 495 
CSS 495 
DADiSP 895 
Design CAD 3-D 400 
Drafix Windows CAD 695 
EXACT 475 


* Terms of Offer: 


e Offer good through June 30, 1990 
e Applicable to pricing on current 


695 


versions of software listed; June 


issue prices only. 
e Offer does not apply towards 


obvious errors in competitors’ 


ads. 





LIST OURS 


SCIENCE & ENGINEERING 


Generic CADD Level 3 300 
LABTECH Acquire 195 
LABTECH Notebook 995 
MICRO-CAP III 1495 
Orcad PCB 1495 
PC TEX 249 
SCHEMA II+ 495 
STATGRAPHICS 895 
Tango PCB Series II 595 
TECH*GRAPH*PAD 395 
PP 595 
SPREADSHEETS 

Lotus 1-2-3 Release 3.0 595 
Lucid 3-D 149 
Microsoft Excel 495 
Quattro Professional 495 
SuperCalc5 495 
UTILITIES 

386 MAX 75 
386 MAX Professional 129 
above DISC 119 
DOS Partner 99 
Dr. Switch DeveloperPak 99 
FASTBACK Plus 189 
HeadRoom 2.0 130 
Help Build 249 
MACE GOLD 149 
Magellan 195 
Memory Mate 70 
MKS Toolkit 249 
Move'em 89 
Norton Commander 149 
Norton Utilities 100 
Norton Utilities Advanced 150 
PC Tools Deluxe 149 
Pizazz Plus 149 
Software Carousel 90 
SpinRite II 89 
XTreePro 129 
WORD PROCESSING 

Ami 199 
Microsoft Word 450 
WordPerfect 5.1 495 
WordStar 495 
SOFTWARE FOR SUN 
WORKSTATIONS NEW! 
Basmark QuickBASIC CALL 
C Programmer's Toolbox/ Sun 495 
Edix 425 
EMACS for Sun 395 
Eroff CALL 
Informix CALL 
Lotus 1-2-3 for Sun 695 
Lotus 1-2-3 for Sun Server 995 
Lotus 1-2-3 for Sun Node 495 
Mathematica for Sun CALL 
NeuralWorks Professional II 4095 
Panel Plus (Sun 3) 1595 
WordPerfect for Sun 495 


CALL 
449 
339 
369 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

1355 

CALL 


Programmer's Policies 


Phone Orders 


Hours 8:30 AM-7 PM EST. We accept 
MC,Visa, AMEX. Domestic shipments, 
please add $5 per item for shipping/ 
handling by UPS ground. For domestic 
COD shipments, please add $3. Rush 


service available. 
Mail or FAX Orders 


POs are welcome. Please include 


phone number. 


International Service 


Phone number required with order. 
Call or FAX for additional information. 


Dealers and Corporate Accounts 
Call for information. 


Unbeatable Prices 


We'll beat the competition's advertised 
prices. (Subject to same terms and 
conditions.) Prices subject to change 


without notice. 


Return Policy 


30 days. Due to copyright laws, we 


cannot take back software with the disk 


seal broken unless authorized by the 
manufacturer. Returned product must 


include R.A. number. 

































































































































primitives, as well as advanced 
oriented programming features. 


List: $695 Ours: $559 


The HALO Window Toolkit is a 
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Lattice 80386 C 


Full 32-bit power programming 


Assembler, and all libraries and 


existing source code is upward 
new Lattice 80386 C Compiler. 


optimized to take advantage of 
List: $895 Ours: $719 


International: 201-389-9228 


Customer Service: 201-389-9229 


Fax: 201-389-9227 


Call or Write for Latest Free Catalog! © 


1-800-445-7899 


A Division of Voyager Software Corp 


1163 Shrewsbury Ave., Shrewsbu 
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fastest programs in the shortest time. You get the 
complete Lattice C Development System for DOS & 
OS/2 with the Optimizing Lattice C Compiler, Lattice 
80386 DOS Extender, CodePRobe debugger, 


tuned to take advantage of the 80386. All your 


your DOS applications and have them automatically 








ACTOR 2.0--New Version--More Memory 


Actor® 2.0 is a significantly enhanced version of Actor, the most productive 
way to write programs for Microsoft Windows. Actor is an interactive, 
object-oriented programming system, 
featuring a large class library and source- 
code debugging. Since its release in 
1987, Actor has enabled thousands of 
developers to learn object-oriented 
programming while creating MS-Windows 
applications in half the time it takes in C. 
This new version breaks the 640K barrier 
with automatic memory swapping. It also 
includes support for user-defined 





object- 


s TheWhitewater Group ® 
HALO Window Toolkit: the Windowing Alternative 


graphical user interface tool that speeds 
development of graphics and imaging applications. 
e Extensive memory management facility 
detects and uses internal, extended, 
expanded and disk memory as needed 


Includes HALO graphics toolkit 


Supports wide variety of graphics displays 
(including high resolution), imaging devices, 


printers and scanners 


Practical time-saver for Microsoft C 


Programmers 


Provides a source code compatible develop- 
ment path to target both the DOS and OS/2 


operating environments 
List: $595 Ours: $419 


Development System 


tools let you create the 


utilities performance- 


y compatible with the 
Simply recompile 


386 32-bit power. 





Corporate: 800-422-6507 
Canada: 800-445-7899 
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(continued from page 8) 

I do not understand why we have 
put up with this kind of silliness. An 
aroused software community (users and 
authors) using the networks (USENET, 
BITNET, CompuServe), bulletin boards 
(both local and national, like yours), 
and their personal word processors can 
make a Very Loud Noise. These com- 
munications resources can be used for 
information exchange and coordina- 
tion. If everyone then processes one 
letter a week to some politician some- 
where, the very idea of software pat- 
ents can be quickly forced out. 

DDJ is a technical magazine. The 
whole idea of software patents seems 
to have arisen from technical naivete 
in legal and political circles. We need 
to have solid technical, intellectual, and 
philosophical arguments against soft- 
ware patents circulated amongst our- 
selves and in any circles that are af- 
fected. I urge DDJ readers to carry out 
this idea and start a word processing 
campaign. 

Jim Iwerks 

Rio Rancho, New Mexico 


Pick-A-Fight Interfaces 
Dear DDJ, 
I am surprised that someone with as 
much computer experience as Bob 
Canup would write such a one-sided 
and narrow minded article as “Pick-A- 
Number Interfaces,’ which appeared 
in the February 1990 issue of DDJ. Mr. 
Canup’s entire argument seems to be 
based upon a poorly written mailing 
list program that he had had experi- 
ence with. A properly written applica- 
tion level interface should be intuitive 
enough for any new user to feel com- 
fortable with and should also assist the 
experienced user into getting the job 
done as quickly as possible. The ulti- 
mate goal in assisting a new user is to 
make the application as “real world” 
as possible. An example of this would 
be to use the letter “B” as the backup 
option. The relationship between the 
letter “B” and the word “backup” is 
simple and intuitive and lends itself to 
concepts the user already understands. 
Bob proposes forcing the user to learn 
a new and unfounded relationship be- 
tween the number six and “backup.” 
Webster defines the word “friend” 
as “A person who one knows well and 
is fond of,” this is exactly the type of 
response that a programmer wants to 
achieve with a user interface. Modern 
UI techniques help users feel like they 
are working with objects they know 
and understand. A piece of paper can 
be represented by a window; just as 
someone may lay another form down 
on their desk, they can lay down a new 
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window on the screen. A windowed 
interface can also shield the user from 
absorbing information they do not pres- 
ently need and at the same time graphi- 
cally represent their “position” within 
the application. Although pointing de- 
vices such as a mouse can be a hin- 
drance to the experienced user, they 
are often helpful to the new user by 
allowing them to operate an applica- 
tion without having to know a prede- 
fined set of relationships between the 
application and keyboard. A mouse user 
can simply click their pointer on the 
word “backup.” It may take slightly 
more time to execute the command, 
however, the knowledge required to 
select an option is reduced to under- 
standing the operation of the pointing 
device. As the user becomes more pro- 
ficient at their own pace they may be- 
gin to use the keyboard correlation 
commands. On the other hand, the key- 
board user must not only know how 
to operate the keyboard but also must 
learn relationships between keys and 
options in the application before they 
can operate it at all. Modern interface 
techniques provide a much more sup- 
portive interface for the user. Mr. 
Canup makes the assumption that the 
use of these tools is the problem, when 
really it’s their misuse. I may be able 
to saw a piece of wood in half using a 
power drill; although there are much 
more effective means, does this mean 
that the power drill is a useless frill? 
Obviously not! If used properly, a power 
drill can save a great deal of time in a 
project. I am certainly glad that Mr. 
Canup is not the guiding light behind 
innovative and forward thinking user 
interface design. 
David Bennett 
CompuServe: 74635,1671 


Standards Revisited 

Dear DD], 

Since you gave Tex Ritter, P.E., a full 
page, I hope you will print a few words 
of mine. Tex Ritter, P.E., takes a couple 
of thousand words to tirade about the 
standards process (‘‘Letters”” DDJ, Feb- 
ruary 1990), but reveals that he has 
forgotten those portions of the scien- 
tific method he learned. 

He didn’t bother to learn that the 
“draft standard” is not an early, highly 
changeable document but the next-to- 
last step in acceptance and is nearly 
frozen in place with people using it as 
a basis for software. 

He spent many hours responding to 
everyone’s comments that he received 
in June ’89 during the 15-day response 
time and considered the response in 
September “appallingly condescend- 
ing.” Again he didn’t do his research. 


At the stage he did all that work, he 
only had the right to respond to his 
own previous comments. Other peo- 
ple merely complain that it takes too 
long to search for the changes that 
caused their own previous comments. 

His greatest complaint seems to be 
that he wanted a lot of features that 
violate the Pascal philosophy of rigid- 
ity and easy teaching/grading (which 
is why I don’t like Pascal) and he wanted 
strong engineering math types. In the 
latter case he should be using Fortran, 
except he likes the lazy ease-of-use of 
never-standard Turbo Pascal. 

After stating that voting is not the 
way to select a standard, he decries the 
“back room maneuvering” that put to- 
gether the standard. He is ignoring the 
hundreds of hours put in to create a 
consensus document that could be 
voted on. It isn’t democracy, it is con- 
sensus building among people who 
are scattered across 3.6 million square 
miles. Of course, Ritter would prob- 
ably object if the meetings were held 
anywhere but at his Austin home. 

All I know about the standards pro- 
cess is the descriptive articles that have 
appeared in Dr. Dobb's, Unix Review, 
and C User's Journal. Obviously, I know 
more about the process than Mr. Ritter, 
who tried to participate but effectively 
entered the pool with a belly flop. I 
hope that he will research his next 
project (and his P.E. work) in a more 
professional way, so he does not waste 
his time. 

Mike Firth 

Dallas, Texas 


Great Minds... 

Dear DDJ, 

It is most interesting that Michael Swaine 
has created an article on the War on 
Bugs as a pun on the national War on 
Drugs (“Swaine’s Flames,” DDJ/ Febru- 
ary 1990). I enjoyed the sarcastic hu- 
mor and appreciate the work that went 
into making that article fly. 

About a year ago, I too noticed that 
bugs and drugs had many similar quali- 
ties (for example, their tenacity and 
their ability to break down morale), 
and decided to include the following 
in the origin line on my FidoNet BBS: 


*Origin: Programmer's Oasis / 
919 — 226 — 6984 — Say NO to Bugs! 
(1:151/402.0) 


Strangely enough, that is the only pun 
that was not utilized in the article! Oh 
well. Thanks for an entertaining col- 
umn in a highly enjoyable magazine. 
Chris Laforet 
Graham, North Carolina 
(continued on page 14) 
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80386 virtual machine technology to 
- k= and DATA. When your program is 
A running, BOUNDS-CHECKER 
protects the program’s CODE and all 
corrupting your code. So, BOUNDS- 
CHECKER will not only detect problems 
caused by your program, it will also 


provide real-time memory protection. 
<) memory outside your program. When 
determine if a T&SR or other program is 












Flush out those Nasty pointer problems and 
other out-of-bounds memory accesses — 
AUTOMATICALLY. 


Each time you make a change to a 
program, run BOUNDS-CHECKER 
while testing the new code. If you 
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(continued from page 12) 

Ritter Redux 

Dear DD], 

After reading Tom Turba’s response 
(April 1990 ‘“‘Letters”) to my published 
letter (February 1990), I have the feel- 
ing that he missed his true calling: He 
has a great future in politics. Although 
the individual facts he cites may well 
be true, the impression he leaves is 
deceptive. Essentially he says: ““We have 
rules which protect your interests; if 
you did not take advantage of them, it 
is your own fault.” But it is one thing 
to leave the doors open to participa- 
tion, and quite another to announce 
where the doors are, and what is on 
the agenda. A casual half-hour with 
my old programming magazines turned 
up no less than eleven articles over the 
past two years on or about ANSI C 
standardization issues; in contrast, I 
found no articles on ANSI Extended 
Pascal. It appears that Pascal users have 
had no notification whatsoever of the 
Extended Pascal effort. 

Tom says that he invites our “‘partici- 
pation,” but there is participation — 
where one may have the chance to 
speak, only to be ignored — and PAR- 
TICIPATION — where one’s concerns 
are satisfactorily addressed. I obviously 
did participate, and certainly did not 
approve of the Extended Pascal speci- 
fication, and yet Tom tells us that con- 
sensus and even unanimity was 
reached. Such participation reminds me 
of the communist party — all comrades 
are equal, but some are on the central 
committee. I guess if you don’t physi- 
cally walk through the doors you must 
not be participating, and maybe if you 
do, you get to be a “visitor” or “ob- 
server.” Clearly, this scheme was not 
designed to increase participation. 

Apparently Tom has now gotten a 
clue: A possible future project (object- 
oriented extensions) may be announced 
to the user community. Great, Tom, 
but the problem is the current specifi- 
cation, not extensions to it. As I see it, 
Extended Pascal was developed with- 
out significant involvement from the 
user Community, so the process, as ar- 
duous as it may have been, was fatally 
flawed. The resulting “standard” is in- 
valid. It is time to throw this one away, 
and start on one we can all accept. 

I understand that those may be chill- 
ing words to some people. To the indi- 
viduals who have participated in the 
many long debates which may have 
taken place, this might seem like the 
destruction of all their work. Yet if per- 
suasive arguments exist for the various 
decisions, they should again prevail; 
all that would be lost are those political 
victories which were not technically 
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warranted. To software companies who 
see standardization as a marketing tool, 
building consensus within the user com- 
munity must seem like a costly and 
unnecessary delay, but what good is a 
standard if most users reject it? As im- 
portant as these views are, they pale 
beside their effects. For example, high 
school students are being subjected to 
“Standard Pascal,’ because they will 
eventually take placement exams which 
use this dialect. Without getting into 
whether a likely pencil-and-paper exam 
can have any bearing on the interactive 
use of a language within a fast devel- 
Opment environment, it is clear that 
even a marketplace-rejected standard 
can make its obnoxious presence 
known. 

Tom simply failed to address the big- 
gest problem with the Extended Pascal 
specification: It is not really a specifica- 
tion at all. Look at it this way: Suppose 
you are a programmer in a small com- 
pany hoping to write portable programs 
for several different platforms. After buy- 
ing or licensing a “standard” compiler 
for each, your “portable” programs do 
not compile on one or the other. Now, 
given the Extended Pascal specifica- 
tion, will you be able to decide which 
compiler is at fault? 

Pascal is a STRUCTURED program- 
ming language. In contrast, the Ex- 
tended Pascal specification is “spaghetti 
code” throughout. In the version I 
bought, terms were poorly defined, mak- 
ing the specification inherently ambigu- 
ous. The spec did not stand alone, but 
appeared to rest on previous work, 
perhaps upon unnamed compilers on 
unnamed machines. The shear com- 
plexity of it led me to question whether 
The Committee had ever dealt with an 
actual complex Pascal program, for if 
they had, they would have been used 
to partitioning complexity into under- 
standable chunks. The specification is 
a turkey, not just because it does not 
have the right things in it, but because 
it is virtually impossible to deeply un- 
derstand what is specified, and there- 
fore impossible to understand the rami- 
fications of the various features in a 
final product. 

But you don’t have to take MY word 
for it: Tom invites your participation, 
which is great! Take him up on it! If you 
think my comments are mostly sour 
grapes, well, just get Tom to send you 
copies of all the comments and re- 
sponses for the past two rounds, and 
make your own decision! If you think 
that the Extended Pascal specification 
cannot possibly be as bad as I say, then 
Hey! Get Tom to send you a copy and 
read it! If the spec looks fine to you, 
tell me I’m all wet. If you resent the 


idea that major standardization deci- 
sions gave gone on without widely avail- 
able printed discussions on the issues, 
let Tom know, let ANSI and ISO know, 
and also let your compiler vendor know. 
Terry Ritter, P.E. 
Austin, Texas 


Rhealstone Suggestions 

Dear DD], 

I have just finished reading through the 
April 1990 issue of Dr. Dobb’s and was 
very pleased to see that you had an 
article with an actual implementation 
of the Rhealstone benchmark. May I 
suggest a couple of additions which I 
would like to see added to the Rheal- 
stone benchmark: 


1. Intertask message latency between 
tasks that are on different nodes of a 
network. This metric is important to 
developers who work on networked 
real-time control system applications. 
2. Message/datagram throughput be- 
tween tasks as a function of message 
size. This should be measured between 
two tasks that are on the same node 
and also between tasks that are on 
different nodes. 

Nick Busigin 

Stratford, Ontario 

Canada 


Animation Algorithm Update 
Dear DDJ, 
After reading the letter sent by Peder 
Jungck (“Letters,” April 1990), I felt that 
some clarification was necessary. In his 
letter, Mr. Jungck stated that a faster 
algorithm would be to separate the pixel 
data into logical planes before the data 
is moved to the EGA’s physical display 
planes. Mr. Jungck was apparently as- 
suming that my sample program trans- 
lated the initial one byte/pixel format. 
This is to maintain a rough compatibil- 
ity to some future VGA sprite driver. | 
This first part is only run once. The 
second part uses the format that Peder 
suggested. It is the structure that is 
used every screen refresh. Although 
I'm sure Mr. Jungck’s program is a 
peach, it does not use an algorithm 
different from what I provided. 

Rahner James 

Sacramento, Calif. 


DDJ 


We welcome your comments (and sug- 
gestions). Mail your letters (include disk 
if your letter is lengthy or contains code) 
to DDJ, 501 Galveston Dr., Redwood 
City, CA 94063, or send them electroni- 
cally to CompuServe 76704,50 or via 
MCI Mail, c/o DDJ. Please include your 
name, city, and state. We reserve the 
right to edit letters. 
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The DDJ 
Hypertext Project 


How our hypertext edition happened 


J. Scott Johnson 


or the past three years, I’ve been involved in the 
documentation, design, and document construction 
of the Black Magic, Help System II, and HyperWriter 
hypertext/hypermedia authoring systems. Consider- 
ing this month’s theme, preparing a hypertext version 
of Dr. Dobb’s Journal using HyperWriter seemed an ideal, 
yet challenging, project. This article describes the steps I 
took and the decisions I made. While some of these steps 
were unique to the task at hand, overall this is typical of 
most hypertext projects. 





Prototyping 

My first task was to prototype the “look and feel” of the 
hypertext version. I took the September 1989 issue of DD/ 
and constructed two prototypes of the document — one 
article-based, the other card-based. The major distinction 
between the two can be summed up in one word: scrolling. 
Article documents “scroll” up and down the screen while 
card-based documents “flip” from one screen to another. 
An article-based document can have unlimited length in any 
of its nodes, while a card-based document is a collection of 
screen-sized nodes linked together. 

Initially, I didn’t know which approach was more appro- 
priate. Though I like card-based hypertext documents and 
understand that users often find them easier to navigate 
through, I first opted for the article metaphor. For one thing, 
card-type documents are nearly impossible to use without 
a mouse. Mice, though common, are not everywhere; with 
an article-metaphor system, keyboard navigation can be 
efficiently employed. In addition, article-metaphor hypertext 
tends to be significantly easier to create than card-based 
hypertext, which requires you to “chunk” the material across 
multiple cards. After evaluating the two metaphors and how 
readers might interact with them on the screen, I ended up 





Scott is the president of NTERGAID, developers of a variety 
of hypertext and hypermedia tools. He can be reached at 
2490 Black Rock Tpke., Suite 337, Fairfield, CT 06430, 
203-308-0632, or on BIX as s.johnson, and on CompuServe 
at 75160,3357. 
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using elements from both, as described in the next section. 

Another decision I had to make during the prototyping 
stage involved the size of the document. The goal was to fit 
everything — document, runtime, and source code — on 
one or, at the most, two floppy disks. This conflicted, 
however, with my desire to create the best possible docu- 
ment, a full issue of DD/on disk. I compromised by creating 
two versions. The version shipped with the listings disk is a 
bare-bones hypertext document containing articles and source 
code. To save disk space, the graphics for this version were 
created with the extended character set. The other version, 
however, is a complete issue of DD/J— articles, graphics, 
letters, and more. Directions on how to obtain both docu- 
ments are at the end of this article. 


Preparing the Data 
One of the first steps in creating this hypertext was data 
preparation. I was supplied with ASCII text files extracted 
from DD/s typesetting system, which could be readily im- 
ported into HyperWriter. This made the text-end of things 
relatively easy. Graphics, however, were a different story. 
Most of the graphics were supplied in a Macintosh format. 
This meant converting the graphics from MacDraw to a 
MacPaint bitmap and bringing that bitmap to the PC with a 
Copy II PC option board. Next, I converted the MacPaint 
bitmap to a .PCX bitmap format, correcting the aspect ratio 
of the Macintosh bitmap to appear correctly on the PC’s 
screen. Finally I converted the corrected .PCX bitmap into 
HyperWriter’s compressed bitmap format to minimize disk 
space. Although this sounds like a lot of work, it is mostly 
just tedious. In addition to converting the graphics images, 
I had to construct versions of each graphics file with the 
extended ASCII character set. Once these tasks were done, 
the real work of building the document could begin. 


Planning 

When all the data was in the computer and in machine- 
readable formats, I was ready to start building the docu- 
ment. Right? Not quite. I’ve found that before creating any 
large hypertext document, a small amount of planning makes 
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worlds of difference. An early constraint was to optimize the 
size of the hypertext document to accommodate Hyper- 
Writer (the toolkit I used), which currently works only with 
hypertext documents that can be contained within memory. 

To provide fast access to the contents of documents that 
are actually spread across several files, I duplicated the 
Table of Contents cards in each hypertext document. This 
eliminated disk delays caused by simply accessing the Table 
of Contents. Now, disk delays occur only if the article being 
accessed is actually stored in another hypertext document. 
To help me build these documents that all share a common 
Table of Contents, I first created a “kernel” document that 
contained only the Table of Contents cards. I then used the 
kernel document as a base from which to create the rest of 
the hypertext documents. 


The Actual ‘’Hypertexting’’ 

Once I finished building the framework of the hypertext 
documents and formatting each article, the real work of 
“hypertexting,’ or creating the cross-referential links, could 


begin. In the hypertext field, there is a growing distinction 
between what are called “objective” and “subjective” links. 
An objective link is a link from the table of contents to a 
particular article. A subjective link, on the other hand, is an 





Dr. Dobb’s Journal, June 1990 


editorial link that cross-references relevant material or makes 
a comment on existing material. What we’ve found so far is 
that while the objective links are essential, the subjective links 
are what add real value to the hypertext. They are the ‘“‘frost- 
ing on the hypercake” (so to speak). The major example of 
subjective links in the DD/ hypertext are the links to the 
source code files. These links allow readers to dynamically 
view both the articles and the source code. Building the 
subjective links, beyond the source code links, required ana- 
lyzing the material and then creating links where appropriate. 


Using the DD/ Hypertext Document 

When you first open the DDJ document, you'll see a screen 
like that in Figure 1, which represents a DDJ cover. This 
card-based format offers access to the different sections of 
the Table of Contents. Select any of the links along the 
bottom of the screen to access a section of the Table of 
Contents. Selecting one of these links yields a Table of 
Contents card like that in Figure 2. 

You can select any of the links from a Table of Contents 
card and access an article. Articles are presented in article- 
metaphor format. A sample article from the issue is shown 
in Figure 3. 

I made an interesting observation on the nature of hy- 
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HYPERTEXT PROJECT 


pertext during the design of the article-metaphor parts of the 
document. The basic user interface of a hypertext document 
is not the hypertext software but rather the document itself. 
The arrangement of a hypertext document — that is, its 
node and link structure — forms the bulk of the user inter- 
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Figure 3: Sample article in the DD] hypertext edition 
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face that the reader encounters. The only time a reader steps 
outside the “document as interface” is when he or she elects 
to use the features of the hypertext runtime itself. To further 
enhance the document as user interface, and to lessen the 
learning curve for existing readers of DDJ, I adopted as 


Objective links are essential, but the 

subjective links are what add real 

value to the hypertext. They are the 
“frosting on the hypercake”’ 





many of DD/s standard formatting conventions as possible. 
See Figure 3, which shows the beginning of one of DD/s 
feature articles. The one major difference in formatting 
conventions is the substitution of different colors in the 
hypertext version for different fonts in the magazine. 


Multiple Entry Points 

Entry points provide a place to start reading or browsing. 
Part of the beauty of the printed page is that you have not 
only multiple entry points, but also easy access to those 
entry points. Some examples of commonly used entry points 
include subheadings, figures, and sidebars. To access any 
of these entry points on paper, you flip through the pages 
of a magazine article or book. 

Although hypertext allows the same sort of entry points 
as paper does, those entry points are often inaccessible 
because they are off-screen. To address this problem, each 
article in the DD/ document has a top line similar to that 
shown in Figure 3, allowing easy access to all of the figures, 
subheadings, and tables (the different entry points into the 
article). 


Conclusion 

From the above description, you may get the impression 
that creating the Dr. Dobb’s document was a lot of work. It 
was. We initially allotted six weeks for the job. The final 
version was produced, working part-time, in just under 
three weeks. Overall, much of that time was devoted to 
conceptual activities such as design and planning. Building 
the actual document was relatively easy with the exception 
of creating the subjective links — that took real analytical 
effort. 


Availability 

The smaller version of this hypertext document is available 
with the listings disk. The enhanced version can be down- 
loaded from the DD/ Forum on CompuServe or you can get 
it directly from me for a small handling fee ($15.00), along 
with an expanded version of this article. 

The bare-bones version of the document only requires a 
monochrome display card and 640K of RAM. The enhanced 
version requires a CGA, EGA, HGA, or VGA system, 640K 
of memory, and a hard disk. A mouse is recommended. You 
do not need any special software to use the hypertext 
system since it is built around the HyperWriter runtime 
engine. You simply extract the self-extracting file and type 
DD]. Specific instructions are provided on disk. 


DDJ 
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There’s a reason why Apple has always been 
recognized as the place where the most innovative solt- 
ware shows up first. 

We match the incredible power of Macintosh” 
computers with the most sophisticated developer tools 
on the market to help people create powerful new 
applications. 

And now, through Developer Tools Express and 
APDA“ we're making these tools available to all developers. 

So you have access to programs like Macintosh 
Programmer's Workshop and MacApp. 

These premier Macintosh development environ- 
ments allow you to code applications in a variety of lan- 
ouages. Like C, Object Pascal and C+--r. 

Or communications tools like MacWorksStation” 
and CL/1” that give you transparent access to data and 
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set of tools. 
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applications residing on remote computers. 

And with its interactive nature, Macintosh Allegro 
Common Lisp’— a complete implementation of the 
Common Lisp standard — lets you model your applica- 
tion quickly and fill in the details later 

To find out how easy it can be to obtain these 
tools, call us today We'll tell you more about Developer 
Tools Express, APDA customer services and our devel- 
oper training programs. 

Because giving you the power to be your best 
isn’t the only thing we do at Apple. We give you the tools 
to turn the power on. 

To get your hands on Apple” development tools, 
call 1-800-282-2732% 


a 
The power to be your best. me, 


* m Canada, call 800-637-0029. If you don't live in the United States or Canada, but still live on the planet Earth, call 408-562-3910.© 1990 Apple Computer Inc. Apple, the Apple logo, Macintosh, and Macdpp are registered 
trademarks of and APDA, CL/ 1, MacWorkStation, Macintosh Allegro Common Lisp, and’ ‘The power to be your best’ are trademarks of Apple Computer Inc. 
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From left to nght: Jim Besemer, Project Manage 


Ir next generation editor. 
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Tell us if you agree. 





r, Specification & Design, User Interface; Skip Russell, System Primitives, Function Library, Error 


Recovery, Operating System Interface, Configuration and Setup; Pat Thompson, Extension Language/Compiler and Debugger; Robynne Major-Jones, 
Howard Mercier (not shown) Quality Assurance and Testing; Eric Johnson, Editor Core, Help Facility; Milo Wadlin, User Documentation. 


For two years this team worked 
in secret to create the world's 
best editor. We believe they 
succeeded magnifi- 
cently. Now we’d 
like to know what 
you think. 

New develop- 
ment environments 
and the size and 
complexity of 
projects make your 80's editor 
inefficient and obsolete. So we 
built you an editor for the 90's. 

Try the Sage Professional 
Editor for thirty days with no 
risk. Pound on it. Compare it to 
any editor you've ever used. Then 
call our team at 1-800-547-4000 

and tell them how you like 
ae | it. There’s no risk to 
Soe you, no obliga- 
tion. Not 
much risk 
for us 
either. We 
won't be 
able to pry it 
away from you. 





Works with or without a mouse. 
Packaged with or without a Microsoft® Mouse. 


nnouncing the 
| . - Sage : 


Professional 
— Editor _ 





Right out of the box you'll be 
more productive with our editor 
than any you use today. The 
instant installation, 
elegant mouse sup- 
port, advanced user 
interface, and point- 
and-shoot help get 
you running immedi- 
ately. If you prefer 
the commands and 
keystrokes of a popular editor, 
our turnkey emulations duplicate 
them precisely, and you still gain 
the Sage Professional Editor’s 
advanced features, windowing 
capabilities and powerful engine. 
Later you'll make this 
editor truly yours by configuring 
the interface as you prefer. Every 
feature can be turned on or off as 
you like - from a clean screen, to 
tiled windows, to overlapping 
windows in various colors, pull- 
down menus, rulers, scroll bars, 
and line numbers - choose any or 
all and place them as you like. 
Use the editor with or 
without a mouse - all functions 
are available without lifting your 
fingers from the keyboard. But 








the click-select windows, scroll 
bars, zoom, shrink-to-icon, block 
text selects, and other speedy 
mouse actions make editing 
extremely efficient. 


keylode ch = keyboardBuffert kbGut 1; 


ift kbMCount > # 


Make our interface what you prefer, 
from clean screen to multi-window with 
drop-down menus and icons. 


current¥ieu = s->uleus? 
i while{ = {= currentScreen 3} 


wrefrane{ currentDialog¥indou(}, 
6, display height - h, 
display width, h }: 


The editor environment provides 
seamless integration to the Polytron 
Version Control System (PVCS) or any 
other tool you care to connect. 


Sage Software, Inc., 1700 NW 167th Place, Beaverton, OR 97006, (503) 645-1150, Fax (503) 645-4576, Int'l. (301) 230-3307, Int'l Fax (301) 984-3047. 


Pop open the DOS window and 
the editor shrinks to just 4k. So 
you can back-task to compilers 
and other tools without leaving 
the editor. 

This package is stuffed 
with value. It includes MS-DOS, 
OS/2 and Dual Mode versions on 
both 5 1/4" and 3 1/2" disks, 
templates for popular languages, 
and you can buy it with or with- 
out a bundled Microsoft® Mouse. 

But the reason you will 
become addicted to the Sage 
Professional Editor is the power 
behind that pretty face. We 
looked under the hood of other 
editors and found wimpy editing 
engines dressed up with all sorts 
of bells and whistles. Unaccept- 
able. We wanted an industrial 
strength engine. So we started 
with a powerhouse virtual mem- 
ory system that allows us to edit 
huge files (up to LOOMEG) in as 
many as 256 windows - over two 
billion lines. It makes maximum 
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use of available memory (includ- 
ing EMS) and uses advanced 
processes to safely minimize file 
I/O. All higher level services use 
this powerful VM scheme. Con- 
sequently, there are no size con- 
straints on the macro library and 
no limit to Undo/Redo. You can 
have 1000 hookmarks, anchors 








And then there’s the extension 
language. The Sage Professional 
Editor uses a C-like extension 
language (100 percent PolyAWK 
compatible) and compiler/debug- 
ger that programmers find 
immediately intuitive. The func- 
tion library gives access to nearly 
everything. From mouse click to 
menu, from word processing to 
external hooks. You can build the 
environment you need or want 
with the editor as the front end to 
your favorite tools. The seamless 
integration of the Polytron Ver- 
sion Control System (PVCS) is a 
sterling example of how cleanly 
you can hook external programs. 
Emulations of Vi, Brief, 
EMACS, and WordStar, were 
written with the extension lan- 
guage. The source code for each 
is included. If you are addicted to 
some obscure editor you can 
modify a copy of emulator source 
and quickly make your own. 
Source for the menuing system, 
mouse interface, help and many 
other services is also included, 


It’s easy to make the Sage Profes- 
sional Editor a standard for your 
team or even the entire company: 


1. Turn-key emulation means 
every programmer can use it 
immediately. Macros written to 
aid users apply to all emulations. 


2 e Provides a framework for 
integrating all your development 
tools into a single, consistent 
operating environment. 


3. MS-DOS, OS/2 & Dual Mode 
versions are all included in the 
same box so your team can move 
into the 90's with the same editor. 


4 Licenses are available for you, 
your team, division or company. 
The initial cost is low, and you 
continue to save as you add users. 





U.S. List Prices. 
Single User Version. 


$29 
$395 


Specify serial, bus or PS/2 mouse. A 
5-User License (without mice) is only 
$1,032.50. Call for prices on larger 
licenses. Visa, MC & P.O. orders: 


1-800-547-4000 
30 Day Money Back (ruarantee 


Includes a 
Microsoft® Mouse. 
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and saved positions per buffer. so you can deeply modify the Professional 
ee ee editor to be exactly what you Sia — 
acquired Polytron, the want. Brief users who have a 
oe a i library of macros can use our SaGe 
PolyMake. Now translator to recompile them into 
this group proudly our more useful and powerful 


introduces their 
Professional Editor 
under the Sage banner. 
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Building A 
Hypertext System 





Hypertext for every programmer's toolbox 


here has been so much talk lately 
about object-oriented program- 
ming that it’s easy to forget that 
the terms “Hypertext and Hy- 
permedia” came into vogue just 
a year or so ago. Of course, hypertext 
is not a new concept; it’s been around 
since the 1960s when Ted Nelson first 
introduced the concept as part of his 
Xanadu project. Popular use of hy- 
pertext systems has increased dramati- 
cally in recent years. Software compa- 
nies such as Borland International and 
Microsoft, for instance, have designed 
interactive help components for their 
products using the hypertext model. 

The advantage of hypertext becomes 
evident when you consider the inher- 
ent disadvantages of the traditional in- 
formation medium — the printed page. 
The presentation of information in writ- 
ten form is explicitly linear. Structur- 
ally, details embodied by the text are 
intended to move from the general to 
the specific, while still remaining fo- 
cused on a given subject. As a result, 
the medium is confined and contextu- 
ally inflexible. 

Hypertext retains the capacity for the 
high information content provided by 
print media, but removes contextual 
limitations. In contrast to the objec- 
tively linear nature of the printed page, 
a hypertext system grants the user “‘sub- 
jective linearity.” This means that rather 
than having to follow the explicit course 
of a document, the user can choose to 





Rick is developing artificial life soft- 
ware at Anthrobotics in Tempe, Ari- 
zona. He can be reached at 1311 W. 
Baseline #2145, Tempe, AZ 85283, or 
on CompuServe at 71521,1220. 
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explore an exponential array of con- 
textual alternatives. In other words, the 
user is free to explore any information 
path in the document. From the pro- 
grammer’s perspective, this approach 
removes the burden of deciding the 
order in which large quantities of infor- 
mation (such as those found in help 
systems) will be presented. As long as 
the data is related contextually within 
the hypertext system, the user can ac- 
cess the information in the manner that 
he or she sees fit. (One less headache 
for us!) 

The purpose of this article is to de- 
mystify hypertext systems, and to show 
you how to take advantage of the hy- 
pertext paradigm in your own programs. 
Along the way, we'll also touch on a 





couple of general-purpose program- 
ming tricks. 


And Away We Go... 
A wise old programmer once taught 
me that good programming is as much 
about the process of building system 
tools (providing tools for ourselves) as 
it is about the process of building ap- 
plications (providing tools for others). 
The hypertext system presented here 
was designed to provide both kinds of 
tools: A system tool for creating and 
editing “hyperdata files” (the data files 
used in a hypertext system), and an 
application tool that allows users to 
browse through those files. 

The hypertext system presented in 
this article is a page-oriented, text-only 
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system with embedded “hot-links” to 
related information. (The terms “page”’ 
and “screen” are synonymous.) By ac- 
tivating any of these hot-links, the user 
can conveniently move from one item 
to another, and from one help page to 
another. Consider the screen in Figure 
1. A hypertext page can be comprised 
of any text that you want in the page. 
The embedded, highlighted regions 
(shown in outline) represent the hot- 
links, which are available to the user 
as a method of navigation. By using the 
arrow keys to move the selection bar 
(shown in inverse video) between hot- 
links and then pressing the Return key, 
the user can activate any page. 

You might have noticed that the word 
“Directory” appears twice on the page 
shown in Figure 1. The first time this 
word appears, the context of the word 
represents a noun that means “The logi- 
cal grouping of files within a subdirec- 
tory.” The second time the word “Di- 
rectory” appears, it is used as a verb 
that means “Display the contents of the 
current directory.” The same word ap- 
pears twice, in a different context each 
time. From the user’s perspective, the 
context is everything — it is the basis 


eee 
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for the direction that the user takes 
while using the system. From a systems 
perspective, the contextual meaning of 
hyperdata files is nonexistent; it’s all 
just arbitrary data. Herein lies the beauty 
of hypertext. A user’s perception of 
context can be exploited by using only 
elementary computing techniques. 


Given an Infinite Time, and an Infinite 
Number of Monkeys . . . 

There are probably as many different 
ways to write a hypertext system as 
there are ways to pronounce “Bjarne 
Stroustrup.” Obviously, you need a data 
structure to store the textual data that 
will eventually be displayed, as well 
as a way to store and manipulate hot- 
links. Upon first consideration, a pro- 
grammer might build data structures 
that look like the structure shown in 
Example 1. 

Of course, there is nothing mani- 
festly wrong with this approach. (At 
least that’s what I told myself when I 
did it.) Well, almost nothing wrong. A 
key disadvantage to this approach is 
that you must predefine how many 
hot-links a page can have, and then 
either preallocate that number of links 
per page or create a linked list to store 


|[Saveland 
e|Files. Files may be selected from within any | 
available Directory or} 


Other options that are avaliaP from this menu are: 


Related topics: 


Figure 1: Sample hypertext dialogue 





Example 1: A typical data structure 
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number to 0 activate 


the links. The use of an array results in 
the inefficient use of memory. If you 
allocate too few elements, you limit the 
number of hot-links per page; the allo- 
cation of too many elements wastes 
RAM. The use of link lists is not much 
better, because these lists require the 
use of additional routines to manage 
both the linked lists themselves, and 
disk I/O to and from the linked lists. 
What’s more, if a doubly linked list is 
utilized, then each node requires 8 bytes 
just for list pointers — and 8 bytes is 
more memory than each hot-link rec- 
ord requires. Either way, you have un- 
necessary overhead. 

Another disadvantage with the ap- 
proach just described is that you have 
to create two separate editors if you 
want the system to be fully interactive. 
The first editor allows the user to edit 
the text that appears on each page, the 
second would be used to allow the 
user to manipulate the hot-link data 
structures. Moreover, the additional com- 
plications of the process of managing 
the hot-link data itself arise. For exam- 
ple, should the hot-link keywords that 
appear on each page be unique? If so, 
then the editor must be able to prevent 
the user from entering duplicate hot- 
link keywords. Eventually, it becomes 
apparent that there must be a simpler 
way to implement the system. 

The answer? What if there were a 
way to embed the hot-links into the 
text itself? If this were possible, then 
the only factor limiting the number of 
links per page would be the size of the 
page itself. Another advantage of the 
technique of embedding hot-links into 
the text is that you would only need 
one editor. The only requirement of 
this editor would be that it must be able 
to distinguish hot-links from normal 
text. Other than that, a simple line edi- 
tor would suffice. Just wait, you’ll see.) 

The inner working of this type of 
system is so simple and elegant that it’s 
almost laughable. The entire program — 
support routines and all — is just over 
500 lines of code. It just goes to show 
you that the best solution is not always 
the most difficult to produce. 

The system is divisible into two com- 
ponents, each of which is incorporated 
into a unit called “HyprText.Pas” (List- 
ing One, page 86). The first component 
handles all of the user interaction re- 
quired to set up the hyperdata files; this 
component is basically a screen editor. 
The second component is called a “hy- 
pertext engine,” this component com- 
bines the information from the hyperdata 
files together with user input in order 
to navigate the pages of hypertext. 

Already mentioned, the system works 
by combining the textual data that ap- 
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pears on a given hypertext page with 
the links that interconnect one page to 
another. An example of how it’s done 
will make the trick obvious. 

Let’s assume that the user has typed 
the lines shown in Figure 2 for a given 
hypertext page, using our built-in hy- 
pertext editor. The characters typed by 
the user are stored in the Help_Record 
data structure, which is defined as listed 
in Example 2. 

As you can see, the Help_Record data 
type is very sparse; in fact, it’s an array 
of strings. The reason for using a rec- 
ord structure is to facilitate disk I/O, 
and nothing more. 

Here comes the linking trick. Let’s 
presume that a hypothetical user wants 
to create a hot-link for the term “OS- 
Shell” (Figure 2) to page 5 in our hy- 
perdata file. (Setting and removing a 
link is accomplished by pressing the F2 
key.) The pseudocode description of 
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the algorithm for placing a link is shown 
in Figure 3. The process begins by 
determining if the cursor is currently 
positioned on a valid (non-space) char- 
acter. If so, then the next step is to find 
the first and last characters in the cur- 
rent phrase. The high bit of each char- 
acter in the phrase is then set, by add- 
ing $80 to the value of each character. 
The last step is to add a “hot-link token” 
to the end of the phrase. A hot-link 
token is comprised of a null byte fol- 
lowed by the hot-link page number. 

Returning to our example, the user 
has decided to create a link on the 
phrase “OS Shell” to page 5 in the 
hyperdata file. Before the link, the char- 
acters on line 8 look like those shown 
in Example 3. After the link is per- 
formed, the high bits are set, and the 
link information is appended to the 
end of the phrase, line 8 looks like the 
code in Example 4. 

Notice that the ordinal value of each 
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Figure 3: Pseudocode description of the algorithm for placing a link 


Example 3: Before linking, the characters on line 8 look like this 
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of the characters in the phase has been 
incremented by $80. Also, notice that 
a hot-link token has been added to the 
end of the phrase ($00,$05). A null 
($00) value is used as a delimiter, and 
it is immediately followed by a byte 
that contains the link page number. 
The use of a byte to store the page 
numbers limits the system to a maxi- 
mum of 255 pages of help, which is 
equal to the greatest value that can be 
stored in a single byte. It is possible to 
eliminate this limitation by promoting 
the byte to a word or a Jongint, as long 
as you watch out for nulls. (Nulls are 
used as the unique hot-link delimiter.) 

You may be wondering why the sys- 
tem both adds hot-link tokens and sets 
the high bit of linked terms. There are 
two reasons. First, setting the high bits 
simplifies the task of detecting which 
words are linked and which are not. 
Second, this step makes the process of 
displaying each page easier to do, be- 
cause the display routines can check 
for the presence or absence of the high 
bit, and then select the appropriate dis- 
play colors accordingly. 

The only task that remains to be 
solved is the step of unlinking a previ- 
ously linked phrase. The solution is 
simple. When the user requests a link 
for a given word, the system first deter- 
mines if the word has already been 
linked. It makes this determination by 
comparing the ordinal value of the char- 
acter that is currently loaded beneath 
the cursor (at the cursor insert position). 
If the value of the current character is 
greater than $80, then the character must 
already be linked. In this case, the pro- 
cess just described is reversed — the high 
bit of each character in the phrase is 
cleared, returning it to its original ASCII 
value. Last of all, the hot-link token that 
was previously appended to the end of 
the phrase is removed. Voila back to nor- 
mal! 


The Hypertext Editor 

The hyperdata file-editor routines ap- 
pear in the HyprText unit (Listing One) 
lines 77 — 288. The editor provides com- 
mon routines for horizontal and verti- 
cal cursor movement, backspace, and 
character/line deletion. It’s nothing more 
than a simple, screen-oriented line edi- 
tor that can deal with both embedded 
hot-link tokens and characters that have 
their high bits set. 

In the process of dealing with an 
ASCII character that has the high bit set 
is very simple. Because the only data 
allowed during data input are valid 
ASCII characters, we can be sure (cor- 
rupted data files notwithstanding) that 
any character with an ASCII value 
greater than 127 is part of a hot-linked 
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(continued from page 20) 

phrase. To properly display this data, 
all that is required is to reduce the 
decimal value of the characters in ques- 
tion by $80. The routine Show_HelpLine, 
and its ancillary routine Write_Char, 
handle that task. 

Show_HelpLine is called by Show_ 
Help_Page to display each line of text. 
Show_HelpLine performs two related 
tasks. First, it determines the color at- 
tribute with which each character is 
displayed. This determination gives the 
system the capability to show hot- 
linked items in a different color and/or 
intensity than the color or intensity of 
normal text. Second, Show_HelpLine 
calls Write_Char, which decodes each 
ASCII character and reduces the char- 
acter’s value by $SOif necessary before 
displaying that character. That’s all there 
is to it. 

To understand how the editor deals 
with embedded hot-links, consider how 
a line editor works. Given a line of 
ASCII text, the editing routine enters a 
loop. The user is permitted to enter 
valid characters, which are inserted into 
the line at the current cursor position. 
Editing commands are provided to al- 
low the user to quickly alter the input 
data via such steps as deleting all of the 
characters from the cursor to the end 
of the line. The routine normally exits 
when the user presses a valid terminat- 
ing keystroke, which is often just a 
press of the Return key. 

The editor works in the same way. 
If a valid character is entered by the 
user, the character is inserted into the 
line at the cursor position, or at least 
at what appears to the user to be the 
cursor position. Remember that each 
line may contain hot-link tokens, which 
consists of data that are not actually 
seen by the user. What appears to the 
user to be column 10 for example, might 
actually be character 16 or character 
20 once hot-link tokens are taken into 


account. 

Consider Example 5. Let’s presume 
that the cursor is located in column 17, 
just above the letter “M” in the word 
“Main Index.” Also, presume that no 
hot-links are present in the line. In this 





Example 5: The actual character number 


case, the actual character number in 
the string is the same as the column 
number that appears to the user. In our 
example, if the user presses any valid 
character, that character is inserted into 
the line at column 17. Now let’s say 
that the user previously linked the 
phrase “OS Shell,” and that the cursor 
again is located above the letter “M,” 
as shown in Example 6. 

Just as before, the cursor appears to 
the user to be located in column 17, 
but the editor knows better. The actual 
character number is 19; the difference 
is due to the fact that a 2-byte hot-link 
token has been inserted into the line 
after the phrase “OS Shell.” If the user 
presses any valid character at this point, 
then the character is inserted into the 
string as character 19. From the user’s 
viewpoint, the result is identical to the 
process just described for the case where 
no embedded hot-links are present. 

Two routines worth mentioning are 
Determine_ Actual_Line_Posand Link_ 
Count. Determine _Actual_Line_ Poscon- 
verts the visual column number that 
appears to the user (and is tracked by 
the editor) to the actual column posi- 
tion just described. Link_Count returns 
the number of hot-links found on a 
given line. This routine works by count- 
ing the number of null characters — 
our hot-link token delimiters —in a 
line. All of the work required to handle 
the process of editing text that contains 
embedded hot-links can be performed 
by these two routines, making the in- 
clusion of additional editing routines 
much easier. 

The editor itself is called and man- 
aged by the routine Help_Editor, which 
provides the necessary setup, file-han- 
dling, and page-manipulation routines 
required by the editor itself. Help_Editor 
also provides a simple screen display 
and an editing-command help window 
for the user — the latter is an excellent 
place for you to add your user-inter- 
face touches. 

The discussion of the design consid- 
erations of the editor brings up an im- 
portant point not only with respect to 
our hypertext system, but to user inter- 
face design in general. It doesn’t make 


Example 4; After linkin ng, the char- in the string is the same as the column 


acters on line 8 look like this 





Example 6: The phrase “OS Shell” was previously linked; cursor is on the 


letter “M”’ 
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number that the user sees 





a bit of difference what is going on 
beneath the surface, as long as that 
activity does not interfere with the user. 
Case in point: Compare word process- 
ing on the Macintosh with word pro- 
cessing on the PC. On the Mac, the 
user never explicitly inserts font con- 
trols into a document. Instead, the user 
just selects the font they want from a 
menu and the rest is handled by the 
Mac beneath the surface. On the PC, 
the user practically has to learn a for- 
eign language in order to instruct a 
word processor to change fonts mid- 
paragraph. 


The Hypertext Engine 

A hypertext engine is a collection of 
routines that permit a user to access the 
data contained in hyperdata files. Func- 
tionally, a hypertext engine is equiva- 
lent to a random-access file browser; it 
permits the user to scan records (or 
pages, in this case) in any order. The 
only difference with respect to a hy- 
pertext engine is that the user never 
directly specifies a record/page num- 
ber. Instead, the user moves from one 
page to another by the selection of 
hot-links; the hot-links contain the new 
page numbers. The page number makes 
no difference whatsoever to the user — 
the user need be concerned only with 
the context of the hot-link keywords 
and the user’s own interest in pursuing 
a given contextual flow. 

The hypertext engine itself is shown 
in Listing One in lines 290-319 and 
367 — 548. Listed first are the I/O rou- 
tines that read and write the hyperdata 
files created and used by the system. 
Because these routines operate on sim- 
ple binary files, and because binary file 
I/O is both easily understood and well- 
documented elsewhere, a discussion 
of these routines is omitted here. 

The main task performed by the hy- 
pertext engine is to provide a user in- 
terface that permits the user to navigate 
hyperdata files. The engine creates the 
illusion of a highlighted selection bar 
for the user. A related task performed 
by the hypertext engine is to track the 
user’s navigation of the hyperdata file. 
The process of tracking is required in 
order to allow the user to explore any 
contextual path to and then back out 
of that path to the original starting point. 
The engine handles this process by 
maintaining a local stack that tracks 
both the hypertext pages that the user 
visits and the order of the user’s visit 
to the pages. (The Stack data structure 
is shown in Listing One, lines 438 — 442 
and 444.) 

The technique of tracking the user’s 
navigation around the system is not 

(continued on page 31) 
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ONLY $499.95 


Learn C++ Now! 

The great exodus of 
programmers from C to 
C++ has begun! Since 
C++ builds on C, it’s the 
easiest OOP language to 
learn. That’s why it’s called 
"the language of the 90’s". 


Why the rush? 
PRODUCTIVITY! Yes, C++ 
programmers can write 
programs in less time 
requiring less maintenance. 
Large projects become 
much easier to manage. 


Unfortunately, learning 
C++ can be very costly. 
Classroom instruction Is 
expensive even without the 
travel and hotel costs. Of 
course, not learning will 
cost you even more in the 
long run. Now there is an 
alternative! 


The top C++ video 
tutorial at the lowest 
possible price. 

The C++ video tutorial 
from Zortech is the ultimate 
C++ training tool for work 
or home at only $499.95. 
It comes on six VHS video 
tapes containing 32 clear, 
extensive tutorials. 
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MS-DOS and OS/2. 


Start writing C++ code 
within a week. 

As a C programmer, you 
will start producing C+ + 
code within a week of 
concentrated use of this 
course. Alternatively, spend 
just an hour a day 
watching the video and 
working through the 
suggested exercises to 
learn C++ in only six 
weeks! 
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tutorials. 

If you don’t already know 
C, you can join tens of 
thousands of programmers 
world-wide who have 
learnt C with the Zortech 
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BENDING OVER 
BACKWARDS WON'T 
GET YOUR APPLICATIONS 
UP AND RUNNING 





When your front-end tools fall short, don’t get bent out of shape. 
Get JAM, the user interface management system that goes far 
beyond the front end tools provided by other vendors. JAM has 
everything you need to build powerful, completely portable 
applications quickly and easily. a With JAM, you can create 
and link together the screens, windows, fields and menus that 


make up an application. The result is a working prototype that 





incorporates special features like extensive field edits and 
validations, context-sensitive help, pop-up windows and pull-down 
menus—all without coding. > And if you’re working with 
databases, JAM’s database interface, JAM/DBi, links your 
applications to many popular databases. Access is implemented 
directly in JYACC’s procedural language using SQL. > JAM 
applications are fast because processing routines are written in 
standard third generation languages. And, you'll never have to 
worry about converting your applications to a new system, because 
JAM is hardware, operating system and database independent. 
Be So, if your development tools have you turned upside down, it’s 
time you turned to the experts. JAM, by JYACC. Specialists in 
application development. o> To receive a FREE demo diskette 
and find out more about the JAM family of software products, call 


our toll-free hotline today! 


300-458-3313 


(In NY, call 212/267-7722 or FAX 212/608-6753) 
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(continued from page 28) 
very difficult. Once the user selects a 
hot-link, the page number contained 
in the hot-link is pushed onto the local 
stack. If the user decides to back out 
of a path by pressing the PgUp key, 
then each preceding page number is 
popped off the local stack (which, in 
effect, reverses the user’s path). This 
process continues until the root has 
been found, the user chooses to move 
down another path, or the stack is empty. 
In addition to engine’s ability to track 
the user’s navigation around the sys- 
tem, another very useful feature is pro- 
vided by the engine as a result of its 
local stack. The programmer can spec- 
ify a starting page and a home page, 
thereby priming the local stack. This 
feature allows you to jump into the 
hyperdata file at any point and still 
permit your user to return to a main 
index or a home page. For example, 
let’s say that you have written a data- 
base application and you’ve used this 
hypertext system as the basis of your 
pop-up help system. Further, let’s say 
that the user has requested help on 
sorting records. As the programmer, 
you want the help system to first show 
the page concerned with sorting. This 


HYPERTEXT SYSTEM 


step is accomplished by passing a valid 
page number to the hypertext engine 
to be used as the starting page on the 
topic of sorting. A home page, usually 
used for a main index, can also be 
specified as a startup parameter for the 
engine. 

One last point of interest is the 
method used to find embedded hot- 
links on a given page. The technique 
used for embedding hot-links directly 
into the data for each page has already 
been discussed. But because the sys- 
tem does not keep master hot-link ta- 
bles, the links must be decoded at run 
time. Once a page has been loaded 
into memory and displayed, the recur- 
sive routines Find _Next_Link and 
Find_Prev_Link handle the decoding 
for you. Find_Next_Link accepts a line 
and column number for the current 
page, and then searches the page from 
that coordinate to the end, looking for 
an embedded link. Find_Prev_Link 
works in the same manner, except that 
it starts at a given coordinate and 
searches backwards toward the top of 
the page. The two routines allow you 
to start at any point on the screen, and 
finding the next or the previous hot- 
link. Once the new hot-link is found, 


it's highlighted by the selection bar, 
and can be invoked by a press of the 
Return key. Pages without hot-links ter- 
minate the current contextual path. 


The Supporting Cast 

The other routines in Listing One (see 
lines 32 — 75) are purely to provide sup- 
port. The Make_String procedure cre- 
ates a string of a given length from any 
ASCII character. Draw_Box draws sin- 
gle or double-lined boxes using ASCII 
line-drawing characters and the coor- 
dinates provided as parameters. (All 
simple stuff.) Read_KeyBoard accepts 
user input, one character at a time, and 
detects when the user presses the Ctrl 
and Alt keys. 


Using the HyprText Unit 

The code in Example 7 shows how easy 
it is to use the HyprText unit in your 
own programs. Line 9 shows a call to 
the editor, Help_Editor, that passes the 
name of the hyperdata file to be used. 
Once the user is finished editing the file, 
the program calls the procedure Do_Help 
on line 10, and passes to this procedure 
the name of the hyperdata file to be 
used. The other parameters passed to 
Do_Help specify the starting and home 
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RM/FORTRAN has become somewhat of a household 
word among scientists and engineers—without the 
benefit of advertising. 

That’s because it's an ANSI-standard Fortran package 
for DOS and OS/2 (also known as IBM Fortran/2) 
that’s loaded with mainframe capabilities. It includes 
RM/Forte, a development environment which integrates 
editing, compiling, linking and debugging. Since this 


environment is built-in, you save hundreds 
_ of dollars. And now that RM/FORTRAN 
\_ is part of the LPI family of products, look 
for more great updates and support. 

For a free 60-day trial with a money- 
\ back guarantee, call 1-800-833-FORT. 
i, RM/FORTRAN. It’s software you'll 
swear by, not at. 
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rogramming communications 1s a 
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and sometimes tedious pro- 
meee = oramming job. The task of 

}} creating a solid communications 
application can contain more 


Surprises than a magic show. 





as this one, you don’t need to 
RS-232 control. 


Functions too Numerous to 
Mention 
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tions here, but our library is 


breadth of your application’s 


protocols to intelligent modem 
control functions, we do it all. If 
you don’t see what you need in 
the features box below, call us at 


what you’re looking for. 
Freebies 


As an added incentive and learn- 
ing tool, we include the full 


a terminal package. Both can be 


Professional C programmers have 
come to rely on South Mountain 
for fast, safe and efficient commu- 
nications functions. With a func- 
tion library as clean and complete 


know assembler to have complete 


designed to support the length and 


need. From numerous file transfer 


800-451-6174. We probably have 


source code for a BBS system and 


incorporated into projects or dissected 
for programming hints. 


We have also designed and included a 
sub-system for background file transfers. 
This procedure can save you hours of ex- 
perimentation and frustration. 





a PC will allow e 
comm application ona ee a 
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You will be able to spot hardware 


malfunctions and view line signals up . 
19,200 Baud. All of this for hundreds © 


dollars less than traditional hardware 


methods. 
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on all our products, and never charge a 
royalty or run-time fee. If you’ve 


CIRCLE NO. 126 ON READER SERVICE CARD 


price $125. 


forgotten what it’s like to be treated as 
an important customer, give us a call 
today. You'll like the change. 


Features 


¢ Interrupt-driven transmit and receive 

to 115,200 Baud 

_® Simultaneous operation on up to 34 

| serial ports 

® Intelligent modem control functions 

® XMODEM, YMODEM, YMODEM.-g, 
and KERMIT 

@ XON/XOFF and hardware flow control 

® Concurrent file transfer sessions in 
foreground/background 

_® Timer and CTRL-Break handling 

© Extensive multi-port board support 


_® Both Microsoft C and Turbo C support 
included 














Other Products 


C-Utility, Essential Graphics, Essential B- 
Tree, ScreenStar, /*resident_C*/, 
Guido, Hold Everything 
Price inc. Source $329. 

No royalties, 30-Day Money-Back 


Guarantee 


1-800-451-6174 





Seat Mountain ae Inc. 


76 S. Orange Ave., S. Orange, NJ 07079 
NJ 201-762-6965 Fax 201-762-0118 


Essential Graphics, Essential Communications, Essential B-tree 


C-Utility Library, Hold Everything, Breakout 2 
GUIDO, /* resident_C*/ Screen Star 
are trademarks of South Mountain Software Inc. 


(continued from page 31) 
page numbers used to prime the stack 
(as described earlier). 

If you want to use this system for 
pop-up help inside your own programs, 
you may want to add routines to save the 
text screen before calling Do_Help, and 
to restore the text screen once Do_Help 
terminates. Also, to keep the length of 
the listing to a minimum, I omitted most 
of the error-checking steps that a com- 
mercial application should have. You may 
want to add more error-checking rou- 
tines to meet your own needs. 
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The Epilog 

Well, there you have it — a hypertext 
system that is simple to program and 
simple to use. I hope that this system 
offers a useful addition to your pro- 
gramming toolbox. 

Iam sure that you can think of addi- 
tional uses and enhancements to this 
system, What about converting this sys- 
tem to a graphics-oriented environment, 
such as the BGI? What about adding 
sound hot-links? Or adding a_ utility 
that reads text files, searches for key- 
words, builds an index, and then auto- 





matically builds hyperdata files? You 
could also add compression routines 
to reduce the storage requirements of 
hyperdata files. 

Nobody ever said that programming 
the PC was supposed to be dull! 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/J Forum on Compu- 
Serve (type GO DDJ). The DD/ Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings Cower- 
case) at the log-in prompt. 
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Hypertext Engine 


A simple engine for context-sensitive help 


he history of the idea of hy- 

pertext systems dates back as 

far as 1945. The first true imple- 

mentations didn’t emerge until 

about 20 years later and hypertext 
systems have evolved continually ever 
since. Hypertext-related concepts have 
found their way into a variety of appli- 
cations ranging from context-sensitive 
help to document-management systems 
to user-programmable systems such as 
Apple’s HyperCard. Even multimedia 
hypertext systems (which are the pur- 
est form of hypertext) are now within 
our reach. 

In this article, Pll discuss how you 
can build a hypertext system that can 
be used for the development of a con- 
text-sensitive help system or for the 
display of hypertext documents. The 
type of hypertext system presented is 
a “text-based” (no graphics or sound) 
system. This type of system is sufficient 
for many applications, and is easy to 
implement. 

At the level of plain text, a hypertext 
document differs from an ordinary docu- 
ment in that links in a hypertext docu- 
ment are established between various 
parts of the document. These links al- 
low you to reposition yourself within 
the document by navigating along the 
links. In some ways, a link is an iconic 
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bookmark to which you can move at 


any time. In the case of a graphical or 
multimedia hypertext system, other ac- 
tions may also be associated with a 
link. For example, a link may display 
a particular photograph, or even pro- 
duce. music. 

Just as a variety of hypertext systems 
exist, a variety of methods for estab- 
lishing the links within a hypertext docu- 
ment also exist. In the application pre- 
sented here, I establish the links at the 
time when the document is displayed. 
This step is accomplished as follows: 
Each topic in the hypertext document 
has a phrase associated with it. This 
phrase serves as a tag which, if refer- 
enced in another topic, automatically 
establishes a link. This type of approach 








allows you to build up your hypertext 
document either by adding topics when 
you need them or when you find that 
certain words or phrases require eluci- 
dation. Because the new topics will 
automatically be linked to all other top- 
ics that reference them, you don’t have 
to spend time managing the links — all 
you do is write the document. 


The Code 

The code for the hypertext document 
display program (which I call hyper_d) 
is presented in Listing One, page 92. 
hyper_d is invoked without any com- 
mand-line arguments (for the sake of 
simplicity). When the program is in- 
voked it first opens the document file 
called “HYPER.TXT.” hyper_dthen calls 
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The Sage Professional Editor 





Announcing the Sage Profes- 
sional Editor - the editing environ- 
ment for the 90's. The product of 
two years work by one of the most 
talented programming teams in the 
business. Right out of the box 
you'll be more productive with this 
editor than any you use today. The 
instant installation, elegant mouse 
Support, advanced user interface, 
and point-and-shoot help get you 
running immediately. If you prefer 
the commands and keystrokes of a 
popular editor, the turnkey emula- 
tions duplicate them precisely, and 
you still gain the Sage Professional 
Editor’s advanced features, win- 
dows and powerful engine. 


Later you'll make this editor 
truly yours by configuring the inter- 
face as you prefer. Every feature 
can be turned on or off as you 
like - from a clean screen, to tiled 
windows, to overlapping windows in 
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Make the interface what you prefer, 


from clean screen to multi-window with 


drop-down menus and icons. 








Works with or without a 
mouse. 

Packaged with or 

A without a 
Pa Microsoft® 
SS Mouse. 





Programmer's Connection Introduces the Next Generation Editor 


various colors, pulldown menus, 
rulers, scroll bars, and line num- 
bers - choose any or all and place 
them as you like. 


Use the editor with or without 
a mouse - all functions are 
available without lifting 
your fingers from the 
keyboard. 


Pop open the DOS 
window and the editor 
shrinks to just 4K. So you > 
can back-task to compilers and 
other tools without leaving the 
editor. 








This package is stuffed with 
value. It includes MS-DOS, OS/2 
and Dual Mode versions, templates 
for popular languages, and you can 
buy it with or without a bundled 
Microsoft® Mouse. 


The core of the Sage Profes- 
sional Editor is a powerhouse 


ay : 
$ = s->next 
current¥iew = s->views: 
} while( s t= currentScreen ): 


urefrane( currentDialog¥indowu(), 
8, display_height - h, 
display width, h ): 


/* botton / | 





The editor environment provides 
seamless integration to the Polytron 
Version Control System (PVCS) or any 
other too! you care to connect. 
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virtual memory system that 
allows you to edit huge files (up to 
100MEG) in as many as 256 win- 
dows - over two billion lines. It makes 
maximum use of all available 
memory. All higher level 
\ services use this powerful 
VM scheme. Conse- 
quently, there are no 
size constraints on the 
macro library and no 
limit to Undo/Redo. 
- You can have 1000 book- 
marks, anchors and saved positions 
per buffer. 


And then there’s the extension 
language. The Sage Professional 
Editor uses a C-like extension 
language and compiler/ debugger 
that programmers find immediately 
intuitive. You can build the environ- 
ment you want with the editor as the 
front end to your favorite tools. The 
seamless integration of the Polytron 
Version Control System (PVCS) is a 
sterling example of how cleanly you 
can hook external programs. 


Emulations of Vi, Brief, EMACS, 
and WordStar, were written with the 
extension language. The source 
code for emualtion is included. Enter 
a new generation today by calling 
Programmer's Connection. 
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HYPERTEXT ENGINE 


(continued from page 34) 

the function build_hyperbase( ). This 
function builds an index of topic tags 
for all of the topics in the file, and 
stores the location of the beginning of 
each topic within the file. This tag data 
base, called “Hyperbase,” is used by 
the display and navigation routines to 
establish links and to move within the 
document. The definition for the Hy- 


A variety of methods 
can be used to establish 
the links within a 
hypertext document 





perbase structure, as well as other defi- 
nitions, can be found in Listing Two, 
page 94. 

The next function called by byper_d 
is enter_text( ). This function references 
a given topic by its tag, vectors to that 
topic in the document, and then allows 
navigation within the document. en- 
ter_text() returns each time a tag is 
selected within a document, and then 
evaluates to the index in Hyperbase of 
the selected tag. As long as the Esc key 
is not pressed (which returns a special 
tag ID of -1), enter_text( )is called with 
the tag that represents the current se- 
lection. This step repositions you in the 
document and begins the entire cycle 
again. If the Esc key is pressed, the 
application performs some cleanup op- 
erations and then exits. 

enter_text( ) could also have been 
implemented as a recursive call, rather 


than placing it in a while( ) loop. This 


function was placed in a while( ) loop 
because this approach minimizes the 
demands for stack space. Imagine the 
results of making each topic a separate 
function, or calling enter_text( ) as the 
navigational step rather than using loop- 
ing. You are free to navigate through 
the document and jump along links as 
many times as you like, so at some point 
a recursive implementation would ex- 
ceed the limits of the application’s stack. 

Several other functions and _ struc- 
tures are used in the application. Rather 
than describe each one here, I created 
a hypertext document that describes 
the entire application. The text for this 
document is contained in Listing Three, 
page 94. The structure of the hypertext 
documents used by this system is very 
similar to the structure of a conven- 
tional document. The listing is quite 


readable without using hyper_d, but 
the use of byper_d makes the process 
of reading the listing more efficient and 
more fun. 


Using the System 

When you've created a hypertext docu- 
ment that you'd like to view, simply 
place the document in a file called 
“HYPER.TXT” and run hyper_d. Pro- 
vided that your document is structured 
properly, you will be placed at the first 
item in the first topic, and then set free 
to navigate through the document. Each 
link to another topic is displayed as 
bold type on monochrome screens, and 
as yellow type on color screens. The 
currently selected item is displayed in 
inverse video..To move the highlight 
around within the document, press 
either the left or the right cursor key. 
This step will move you either back- 
ward one item (left cursor) or forward 
one item (right cursor). Once you've 
highlighted a tag of a topic to which 
you'd like to move, press the Enter key. 

To create a new document, you have 
to follow some simple rules so that 
hyper_d can locate each topic. A topic 
begins with a line that consists of a 
form feed that is followed by a new 
line. The next line that follows is the 
tag string for the topic. Everything that 
follows the tag line is text for the topic. 
You can insert any characters into the 
text portion of a topic, including the 
graphic characters in the PC’s character 
set. Graphic characters are handy be- 
cause they give the appearance of be- 
ing graphically based, when in fact 
they’re only character based. 

The way in which you embed a form 
feed into your document differs from 
editor to editor. Here’s how to do it 
using a few of the editors that I use 
regularly. In Turbo C, press Ctrl-P and 
then press Ctrl-L. In vi, press Ctrl-L 
While the program is in insert mode. 
In Microsoft Word, insert a page break 
by pressing Shift-Ctrl-Return. 


Extensions 

Many obvious improvements could be 
made to byper_d. Only a minimal set 
of functions has been implemented in 
order to present the elements of a hy- 
pertext system in the clearest possible 
way. One obvious improvement would 
be to add support for a full range of 
navigational keystrokes, such as the 
up and down cursor motions. Another 
improvement would be to “compile” 
the text, rather than take the “interpreter” 
approach that was done in this article. 
This technique would involve the pro- 
cess of calculating the links (as per- 
formed by build_hyperbase( )) and then 
recording the calculation in some way 
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HYPERTEXT ENGINE 


(continued from page 30) 
so that navigation can begin immedi- 
ately when the document is called. 
Some features of more powerful hy- 
pertext systems include navigation his- 
tory lists, which allow you to retrace 
your steps through a document; the 
possibility of integrated text and graph- 
ics; and scrollable windows. Even 
though these features (and many more) 
are expected of hypertext systems to- 
day, applications for text-only hypertext 
still exist. The hypertext system for the 
documentation of the source code pre- 
sented in this article is one example. 


Conclusion 

I think Apple will be remembered fondly 
for bringing hypertext systems into the 
hands of the average person — not so 
much because the company developed 
HyperCard, but because Apple gave it 
away for free, bundled with every Mac. 
Even though a PC is just as capable of 
running hypertext systems as a Mac, 
there isn’t a single (as far as I know) 
PC-based hypertext development sys- 
tem that is given away free or almost 
free. The PC-based application pre- 
sented in this article is available for 
anyone to use, free of charge. You are 
also welcome to use it as a seed for the 
development of a more fully featured 
display system. If you do expand this 
code directly, please keep the results 
in the public domain. 

This code was developed and tested 
using Turbo C 2.0. It also uses certain 
library functions that are unique to 
Turbo C and are related to screen out- 
put. These functions are: c/rscr( ), 
cputs( ), gotoxy(), textbackgroundc ), 
and textcolor( ). 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/J Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings (lower- 
case) at the log-in prompt. 


DDJ 
(Listings begin on page 92.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 3. 
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Building an Efficient 








Help System 


Knowing how help files and the hypertext engine 


n-screen documentation has 
become ubiquitous in con- 
temporary software, from busi- 
ness applications to program- 
ming tools. Like anything 
else, the quality and usefulness of this 
aid varies from package to package. 
The technology of hypertext, however, 
promises to solve many of the organiza- 


tional and speed problems currently 


found in some on-screen help systems. 
On-screen documentation is useless 
unless it makes finding information easy, 
provides that information quickly, and 
delivers all the information users need. 
Some kinds of information — command 
references, API references, example 
code, and the like — lend themselves 
more readily to on-screen help than 
do others. Hypertext can equip a help- 
system programmer with the tools 
needed to create on-screen documen- 
tation that is fast, easy to navigate (even 
through voluminous text), and compre- 
hensive. Hypertext isn’t magic; it’s actu- 
ally quite a simple idea. In a help sys- 
tem, it’s the association of a programmed 
action with an area of viewed text. 
This article explains how help files 
and the hypertext help engine of a 
typical hypertext-based on-screen help 
system fit together, using the Microsoft 
Advisor as the example. With an under- 





Leo, a software development engineer 
and manager for Microsoft, is the de- 
signer of the Microsoft Advisor. Michael 
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Interact Is essential 


Leo Notenboom and Michael Vose 





standing of how this technology works, 
you can use it and associated tools to 
add on-screen documentation to your 
libraries and programs or access on- 
screen help provided by any other pro- 
gram that uses similar technologies. 


Hypertext in Context 

As already defined, hypertext is simply 
the association of an action with an 
area on the screen. Thus a “button,” 
which is just a visible region on a screen, 
might have associated with it the action 
of looking up help text on a predefined 
string of characters. When a user se- 





lects the button, the associated help 
text is located and displayed. 

In practice, this movement between 
help screens via buttons or an action 
such as pressing a help key is generally 
referred to as a link or cross-reference. 
There are two primary types of links: 


e Implicit Links When a user selects 
a word on the screen and requests help 
by pressing F1 or clicking a mouse, the 
application looks up help on that word 
and displays the resulting help text. 
Within the help text itself, a user can 
place the cursor on any word within 
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BASICally Better 


hen it comes to Performance and Price, 
PowerBASIC tops everything on the market. 
This upgrade from Borland’s Turbo Basic™ in- 
corporates time-saving new features and state- 
of-the-art capabilities into this popular Turbo-style 
environment. PowerBASIC is the next step 
for power programmers. 


PowerBASIC creates clean code. It slims 
down and speeds up your EXE files. It 
even lets you put assembly code 
anywhere in your program. New com- 
mands eliminate the need to write involved 
routines for everyday tasks. Never again 
will you be bogged down by string space 
limitations now that PowerBASIC has 
pushed through the 64K string space barrier to 
use all available memory. 


You'll locate the most elusive bugs in seconds, 
thanks to an integrated debugging environment that lets 
you trace, step, set breakpoints, and monitor and 
change variables. New BCD math completely 
eliminates round-off errors, making PowerBASIC ideal 
for financial applications. 


PowerBASIC gives you instant ac- 
cess to all the tools by easily moving be- 
tween editor, compiler, debugger, and 
linker—all without losing sight of your 
code. PowerBASIC 2.0 is upwardly 
compatible with Turbo Basic. And if 
you've been using Quick Basic™ it's 

- an easy step up to PowerBASIC. 
With all these features you 
might wonder why other complete 
development environments cost 
up to four times more. Well stop 
wondering and start working 

with PowerBASIC. 


It’s basically better. 
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(continued from page 40) 

the help text and press F1 again to get 
further help. This second lookup op- 
eration is made possible by implicit links. 
e Explicit Links Encoded by the help 
file author, explicit links specify a re- 
gion within the text (often represented 
by a button) and the help text to which 
that region refers. For example, a help 
screen may present an area labeled 





‘The tables that connec 
parts of a help database are created 


the diferent 


HYPERTEXT HELP SYSTEM 


<Example Code> that was defined by 
the help author to be linked to the 
phrase abs.example. When the user se- 
lects that button, the application looks 
up the phrase abs.example, and dis- 
plays the resulting help screen. 


Explicit links come in two flavors — 
normal and local. Normal explicit links 
operate exactly as in the previous ex- 
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ginning of every help file. (se 
3). Every help file has the 
_structure: A header that c 
identifier and version o 
tion of the subsequer 


some additional ae 






















extra entry to nee the end of the file; 


the context map, which matches a _ 
context number to a topic number; . by: 

wi - into this key-phra 
__ ple the word “the 
_ in normal English 










the context string 
fines the strings wi 
| determines their con 
tional keyword cor 

which contains the ke 
from the topic text 
sion; an optional 
sion table, whicl ch 





application can then map to colors if 
desired; and explicit link information, 
which specifies the 7 within the 


_ or phrases ut 
text is analyze 









oo abe color in ee 
such as bold or underline, that an 


° into z 


Gods in the te 


ample. They differ from local explicit 
links in that they can reference differ- 
ent help files from the one actually 
containing the button. Local explicit 
links, on the other hand, are restricted 
to linking to help text present in the 
same help file as that containing the 
button. As we'll see later, local links 




















Header : = 
on ‘number, location of tables information. = 


have advantages and disadvantages. 


To implement these hypertext links 


analyzed for frequently occurring 
bytes, and the most frequent bytes 


are replaced with a shorter bit pat- 
_ tern. For example, if you can replace 
— 1000 8-bit bytes with a 2-bit pattern, 
you save 6000 bits, or 750 bytes. To 


restore a Huffman-compressed file re- 
quires a table that a decompression 


routine can use to restore the 2-bit 


pattern to its original 8-bit value. The 
side effect of Huffman compression 
is that less frequently occurring bytes 
often get replaced by a bit pattern 
longer than 8 bits. However, the net 


gain due to the frequency of the 


smaller bit patterns quickly outweighs 


the loss due to the growth of the 


longer ones. 
Microsoft offers a “Programmer’s 





~ Workbench Toolkit” that contains the 
_ Advisor API Library and Documenta- 
tion. Call 1-800-426-9400 to obtain de- 
tails. 


— LN. VV. 













"igure 3: The components of a help database 
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On the third ia: He identified the need for a an alec deedeeney tool. 


f you're feeling overwhelmed by im- 

possible deadlines, don’t despair. 
Vermont Views™ 2.0 combines a menu- 
driven screen designer with a C library of 
over 550 functions to combat program- 
ming stress. 


ie 
Have Fun Again 


Using the Vermont Views Designer, you'll 
visually create user interfaces in a fraction of 
the time required to code them. Include pull- 
down menus, window-based data-entry forms 
with tickertape and memo fields, scrollable 
form regions, choice lists, context-sensitive 
help, and other state-of-the-art features. 
Quickly create and refine operational 


prototypes. 


My = CREATE 


Kinin nun sag 
Rar 


nnouncenent 
Easy Modif ication o 


Begin field function + XXMAXXXKAAAKKX, 
End field function 1 RXXAAXXAKAAARY, 
Field validation function: XXXXXXXXXXKXXX 


< nddff DataF 
Editing forn. Enter ta ae J> jumps to menu, <F1> for help. 





You'll enjoy interactive development 
without the limitations of 4GL’s. When the 
extensive capabilities of Vermont Views don’t 
meet special needs, attach your own process- 
ing functions to menus, forms, fields, and 


keys. We've designed it so you won't run into 
dead ends. 


A Better CASE 


Rapid prototyping is the latest CASE tech- 
nology. But, with most systems, you must 
throw the prototype away when coding 
begins. With Vermont Views, the prototype 
becomes the application. Menus and data- 
entry forms are usable in the final appli- 
cation without change. Names of functions 
for retrieving, processing, and storing data 
can be specified as the prototype is created. 
Notes can be attached to forms and fields to 
help you complete and document the appli- 
cation. Vermont Views objects are checked 
for validity when created, so integration and 
testing go more quickly. 


rn 
Endless Benefits 


Screen generators for most C libraries 
require you to modify generated source code 
to create a fully functional interface—atter 
which you must work with the source code. 
Not so with Vermont Views. Designer forms 
and menus can incorporate the special capa- 
bilities of Vermont Views and still be revised 
interactively. You'll reap productivity benefits 
= the software lifecycle. 


Free Test Dri 2 


“Call . a free DOS der 
Designer. See what you 


Call 800-848 48 - 
> Fax 807-845 350).ti«=s 


lease | Mention “106” 








A Universal Solution 


Create a single interface and port it among 
PCDOS, OS/2, gucwpmes 

UNIX, XENIX, and ~ 
VMS. Use Vermont — 
Views with any , 
data-base that has - : 
a C-language interface (most do) oe 
interfaces for any roman-based language. 
Develop safely on networks with our form- 
locking version. Truly a universal solution for 
your interface development needs. 





Sweet Music 


“This is the most complete, easiest to use screen 
package I have ever seen...” | —Jim Darragh, 

Commercial Logic, Inc. 
“At a recent field staff meeting, we were able to get 
a consensus...using the Designer on a big screen 
TV. Changes can be posted real-time and a func- 
tioning prototype results... The form designer is 
GREAT.” — Randy Jones, Beta Tester 


a ee 
No-limit Trial 


Reduce stress by ordering Vermont Views 
now. There is no risk. Return it for a full 
refund — anytime. We believe in our product. 


do v4 Vermont 
Creative 
Software 


Pinnacle Meadows, Richford, VT 05476 
Phone: 802-848-7731 Telex: 510-601-4160 








Confusing Code? 


#include <stdio.h> 
text_count(){int c,nlines,nwords,nchars, inword; 
inword=NO;n1 ines=nwords=nchars=0;while((c 


=getchar())!=E0F){++nchars;if (c=='\n') 
++nlines;if ((c==' ')!!(c=='\n'))inword=NO;else 
if (inword==NO0) { inword=YES;++nwords; }}printf ( 
"%d %d %d\n",nlines,nwords,nchars);} 


C It Your Way! 


#include <stdio.h> 





text_count () 
int c, nlines, nwords, nchars, inword; 


inword = NO; 
nlines = nwords = nchars = 0; 
while ((c = getchar()) != EOF) { 
++nchars; 
if (c == '\n') 
++nlines; 
if ((c == ' ') {i (c == '\n')) 
inword = NO; 
else if (inword == NO) { 
inword = YES; 
++nwords; 


} 


} 
printf ("%d %d %d\n", nlines, nwords, nchars); 


NOW with C-Clearly™, format C source 
code exactly the way you want it. 
C-Clearly’s context sensitive analysis will 
format any C program in your own personal 


or corporate style. 

ec AS to use, C-Clearly’s style templates 
are a Snap to modify, since they 

resemble C source code you edit into your 

preferred format. Templates are included for 

several common styles as well as standard 

K&R. 


LISTINGS can also be created with 
function names and 
comments highlighted for improved readability. 
Listing options include line numbers, headers 


and/or footers and flow lines. 


IDE AL for making obtuse code clear. 
Allows all of your source code 

to be presented in a consistent format of your 

choosing. Also great for code walkthroughs and 


final documentation listings. 


WO RKS with all IBM PC, XT, AT, PS/2 
and compatibles, with 512K 

RAM. Automatically processes all include files 

and pre-processor statements. ANSI-C com- 


patible. Not copy protected. 


C-Clearly $129* 


Shipping & Handling USA $5; Canada/Mexico $10; Other Countries 
$15; CA Residents add sales tax. Visa/MasterCard/COD accepted. 


For orders or information call: 


1-800-662-8266 


V COMMUNICATIONS, INC. 


4320 Stevens Creek Blvd., Ste 275, Dept. DD6 
San Jose, CA 95129 (408) 296-4224 
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HYPERTEXT HELP SYSTEM 


(continued from page 42) 

to assist users in navigating help text, 
a help-system author can benefit from 
understanding the data structure known 
as a help database. 


Help Files and Databases 
To make on-line help fast requires a 
way to quickly map individual words 
or phrases to some textual or graphic 
information. Associating the explana- 
tory text or graphic information with 
more than one word or phrase may 
also be necessary. The help file con- 
tains the information that allows help 
retrieval to be both fast and flexible. A 
help file comprises one or more help 
databases. A help database contains the 
words that help is available for and the 
information associated with those words. 
The words and phrases for which 
help can be requested, called “context 
strings,” and their associated help text, 
referred to as “topic text,” are authored 
using a text editor or word processor 
and are compiled into help files using 
the HELPMAKE utility. HELPMAKE cre- 
ates the links between the context strings 
and topic text and also compresses the 
topic text. HELPMAKE can also decom- 
press, or “uncompile,” an entire help 
file into its original, editable form. (See 
the accompanying text box, “Turning 
the Tables” for information about the 
structure of a help database and the 
techniques used to compress it.) 
During help-file compilation, the ac- 
tual connections between context strings 
and topic text are made through a se- 
ries of three lookup tables used by the 
Advisor when a help request is made 
(see Figure 1). The context strings sup- 
ported by the help file are stored as a 
simple array in the first table, and the 
help text contained in the file can also 
be viewed as an array of topics. The 
job at lookup time, then, is to map the 
given context string to the correct piece 





Sore 


Figure 1: The look-up tables for mapping context strings to topic text. Note 


of topic text to which it refers. 

The first table, the context-string ta- 
ble, is just a simple array of context 
strings. The index of a string in this 
table becomes its “context number.” 
The second table maps the context num- 
ber to its corresponding topic. The en- 
try indexed by the context number in 
this “context map” contains the corre- 
sponding “topic number.” The last ta- 
ble maps the topic number to the ac- 
tual position within the help file that 
contains the topic text. From this last 
table, the compressed size of the topic 
can be calculated (the difference be- 
tween two successive file offsets; this 
number can then be used for memory 
allocation) along with the predicted 
end of the help file (the file offset of the 
last-plus-one help topic used for con- 
catenated help files, described later). 

The Advisor optimizes this lookup 
process by loading the mapping tables 
(and the decompression tables de- 
scribed in the text box) into memory 
once, wherever possible, and leaving 
them there until the application instructs 
it to discard them. 

Because a context string is trans- 
formed into a number representing its 
position in the context-string table, an 
application can discard this string once 
the transformation has been made. In 
fact, this context number is returned 
to the application in a form that also 
identifies the specific help database to 
which it applies when more than one 
help database is being used. This con- 
text number can be used to map back- 
ward if necessary to determine what 
string was originally looked up and 
what database it came from. 

One special type of context number 
provided by the Advisor for the appli- 
cation is called a “local context num- 
ber,” or simply “local context.” Local 
contexts are not associated with a con- 

(continued on page 47) 
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nd Less. #9995; 













OK. We know it’s hard to 
believe. So just consider this. 
Coherent” is a virtual clone of 
UNIX. But it was developed 
independently by Mark 
Williams Company. 
Which means we 
don’t pay hundreds of 
dollars per copy in 
licensing fees. 

What’s more, 
Coherent embodies 
the original tenet of 
UNIX: small is beautiful. This 
simple fact leads to a whole host of 
both cost and performance advan- 
tages for Coherent. So read on, 
because there’s a lot more to 
Coherent than its price. 

SMALLER, FASTER. ..BETTER. 

Everybody appreciates a good 
deal. But what is it that makes small 


Coherent can reside with DOS. So 
you can keep all your DOS applica- 
tions and move up to Coherent. You 
can also have it running faster, learn it 
faster and get faster overall perform- 
ance. All because Coherent is small. 





so great? | ae 
For one thing, Coherent gives Sounds beautiful, doesn t it? | 
you UNIX capabilities on a machine But small wouldn't be so great if 
you can actually afford. Requiring it didn’t do the job it was meant to do. 
only 10 megabytes of disk space, EVERYTHING UNIX 
WAS MEANT TO DO. 
Like the original UNIX, 


Coherent is a powerful multi-user, 

multi-tasking development system. 
With a complete UNIX-compatible 
kernel which makes a vast world of 


Coherent For Santa Cruz 
the IBM-PC/AT Operations 
and compatible XENIX 286, 

286 or 386 ‘Version 2.3.2 


based machines. 
UNIX software available including 
No. of Manuals ; j : 
over a gigabyte of public domain 
No. of Disks 
software. 


Kernel Size 198K 
Install Time 20-30 min. 3-4 hours 


Coherent also comes with Lex 
and Yacc, a complete C compiler and 
a full set of nearly 200 UNIX com- 
mands including text processing, 
program development, administrative 
and maintenance commands. 

And with UUCP the UNIX to 


Suggested Disk Space 10meg 30meg 


Recommended Memory 640K 1-2meg 
Performance* 38.7sec 100.3 sec 
Price $99.95 $1495.00 


*Byte Execl benchmark, 1000 iterations on 20 MHZ 386. 





UNIX Communication Pro- 
gram that connects you to a 
world-wide network of free soft- 
ware, news and millions of users. 
All for the cost of a phone call. 

We could go on, but stop 

- we must to get in a few more very 
important points. 
EXPERIENCE, SUPPORT 
AND GUARANTEES. 

_ Wondering how something as 
good as Coherent could come from 
nowhere? Well it didn’t. It came from 
Mark Williams Company, people 
who’ve developed C compilers for 
DEC, Intel, Wang and thousands of 
professional programmers. 

We make all this experience avail- 
able to users through complete techni- 
cal support via telephone. And from 
the original system developers, too! 

Yes, we know $99.95 may still 
be hard to believe. But we’ve made it 
fool-proof to find out for yourself. 
With a 60-day money-back no-hassles 
guarantee. 

You have to be more than just a 
little curious about Coherent by now. 
So why not just do it? Pick up that 
phone and order today. 

You'll be on your way to having 
everything you ever wanted in UNIX. 
And for a lot less than you ever 
expected. 


1-800-MARK WMS 
(1-800-627-5967 or 1-708-689-2300) 
60-DAY MONEY BACK GUARANTEE! 





Mark Williams 
Company 

601 N. Skokie Highway 
Lake Bluff, IL 60044 


*Special introductory price good through July 31, 1990. Coherent 
is a trademark of Mark Williams Company. UNIX is a trademark 
of AT&T. XENIX is a trademark of Microsoft. 














Death 


axes 
Software Piracy 





We can save you from one of them. 


orry. Death we can’t do anything about. As for 

taxes, when you use our product you'll probably 

wind up paying more. But software piracy: 

there we offer some help. Our family of software 
protection devices (dongles) have improved unit sales 
for over 2,000 companies around the world. 
Our products can be used in the MS-DOS, 
OS/2 and Macintosh environments. 






Build Your Own Custom Protection 
Environment 


Use our patented “dual- 
locking” ASIC chip as the 
basic building platform. 
Next, add options like: on- 
the-fly read/write memory, 
write-once or multiple-write 
locking codes, and encryp- 
tion shells. Then add your 





| | 
\ : 
} 

PATENTED 


Software Security 


1011 High Ridge Road - Stamford, CT 06905 
1-800-333-0407 ext. 102 


own programming creativity to build a protection envi- 
ronment best suited to your product. 


Users attach the device to their parallel port, and 
programs won't run without it. Back-up copies, hard 
disk and LAN operation are not interfered with. 


Your Intellectual Property Belongs To 
You 





And if you don’t protect it, who will? Our 
products offer the most equitable way to 
protect your interests with- 
out sacrificing the rights of 
your customers. Call us 
today for information and 
demonstration units. 


Macintosh is a trade mark of Apple Computer Inc., 
Activator, Mactivator are trade marks of Software 
Security, Inc. illustration: detail from 
Michelangelo's Last Judgement 


203-329-8870 Fax 203-329-7428 BBS 203-329-7253 
AppleLink™ D2379 
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(continued from page 44) 
text string; rather, they are directly en- 
coded with the desired topic number. 

Local contexts are identified by the 
help-file author at the time the file is 
written and are compiled specially by 
the HELPMAKE utility. Explicit links 
often use local contexts instead of nor- 
mal contexts because the 2-byte topic 
number with which a local context is 
encoded is much smaller than the string 
normally coded into an explicit link. 
The only restriction on local contexts 
is that explicit links that reference local 
contexts must have the topic text asso- 
ciated with each local context present 
in the same help database. 

Multiple help databases can be con- 
catenated to form a single help file for 
a given application. When a help file 
is opened, the hypertext system, using 
the three tables previously mentioned, 
examines what should be the end of 
the database in that file. If instead it 
finds the beginning of another help 
database, it opens that as well and re- 
peats the end-of-database examination. 
By repeating this operation, multiple 
help data files can be combined simply 
by using the MS-DOS Copy command, 
and even applications that support only 


ATTENTION! 
C Language Windows 
Developers 


The ProtoView Screen Management Facility for the Windows 
Operating Environment may be just what you are looking for. 
It is the first development tool to address all the needs of 
today’s business applications running under MS Windows. 


Proto View Provides: 


e Quick and easy WYSIWYG screen painting and code generation. 
Complete support for complex field editing and cross field editing. 


one help file can be “fooled” into using 
several help files disguised as one. 


The Help Engine 

The help engine is nothing more than 
a data retrieval tool. The engine takes 
a string and maps it to the appropriate 
topic text. It simply searches the data 
structure that is a help file and makes 
the desired information available to an 
application. 

The Advisor help engine knows very 
little about its environment — except 
for the OS/2 version, which does make 
some assumptions about memory man- 
agement and file I/O. The MS-DOS ver- 
sion of the help engine relies on the 
application to handle memory man- 
agemeni and file I/O. 

The engine enforces the help-file for- 
mat and its data structures but leaves 
determinations about how to use re- 
trieved data to an application. The help 
engine has to be told what help files 
to deal with, and an application can 
specify multiple help files. 

In addition to routines to query for 
and retrieve help text, the help engine 
provides routines that the application 
must use to perform decompression 
after the topic text has been located. 


case > WH_KILLFOCUS 


The help engine also has routines that 
an application can query to discover if 
a topic has cross-references or to read 
only the color or control information 
in a topic. 

The help engine uses application- 
provided handles for memory manage- 
ment and for file I/O and can therefore 
deal with many different memory and 
I/O schemes. 


The Application’s Job 

The application program that uses the 
help system must perform several im- 
portant functions of its own (see Figure 
2), including providing the user inter- 
face to the help system and supplying 
the interface to its environment. 

The most important of these func- 
tions is the user interface for displaying 
help information and interacting with 
the user and the help screens. The ap- 
plication defines what text gets parsed 
into a context string when a help re- 
quest is made, and it then passes that 
string to the help engine, which mounts 
the search for that string. For example, 
if the cursor resides on a menu or an 
open dialog box, the application’s parser 
must be able to decide if help is appro- 
priate for that object. The application 


GetWindowText(hWnd, string, MAX_FIELD_LEN); 


AField ee StatePr = 
sField Text:Ca 





if(1Param t= UWNOEDIT) /* Do automatic editing? «/ 


eh pes Nane : —_ 


scrollbar 
security 
abet 


[ acro Validation | Validation Field Position 


lprotouiew. Deno 


Adjustable Wrench Z 
Crowbar | 


Drill 


File Bl 
Hammer - 


A dynamic link library of over 150 C language functions for manipulating data entry windows. 
Includes high level functions for file editing, table list boxes, error display and more. 


An expandable dynamic link library of ten field control objects, source code included. Data entry 


fields include: String, Calculator, Money, Date, Table choice, Security and Real. 


A powerful macro editing language that you can extend. Some of these macros are: mandatory, 
protected, range check, choice check, table lookup, picture masking and message file lookup. 


ProtoView 3.0 for Windows 3.0 costs $695 and is available now. 


ProtoView provides more raw power and functionality than any other Windows product of its 





kind. It does so at a price you can afford, with no runtime or licensing fees. Call for a brochure 


ProtoView Development Co. 
ProtoGen: ProtoGen enhances ProtoView by allowing a user to interactively design menus and1{62 Kingdom Avenue 


or $15 demonstration version today. 


attach dialogs and windows to them. Multi-level dialogs and accelerators are also supported. 


ProtoGen costs $199 with ProtoView or $495 alone. 
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Figure 2: The help engine's place within the hierarchy of an application 











INCREMENTAL C COMPILER 


“An Utterly Addictive 


Speed Microsoft” C development. 
Instant-C is a Microsoft-compatible 
incremental compiler. It can 
rebuild 100,000 line programs in 
seconds. And you can still use 
Microsoft C's optimization. 





Find bugs other compilers miss. 
Instant-C debugs as fast as it 

| compiles. Here are some bugs that 
(in a Microsoft C program) could 
hang your computer. Instant-C 
catches them automatically: 


e Array reference out of bounds 

e Use of uninitialized pointer 

¢ Read/write through null pointer 
¢ Stack overflow 

¢ Clobbering the program or DOS 








Speed Improvement” 


B. Rubin, The C Gazette, Autumn 1989 





For those few bugs that still elude 
detection, Instant-C integrates the 
debugger with the compiler for 
true source level debugging. 


No slowdown on big programs. 
Instant-C uses our DOS/16M 
technology, so you can work on 
programs bigger than 640K with 
no swapping to disk. 


Everything you need. 

Instant-C has much more to offer, 
like dynamic cross referencing and 
lint-like static checking. Support 
for third party libraries. Interactive 
testing of single functions or 
partial programs. Everything you 
need to program and debug faster. 





Call 508-653-6006 for free information. 


Rational Systems, Inc. 220 N. Main St., Natick, MA 01760 DDH1 


Instant-C requires an 80286/386/486 and at least 1M of memory. Microsoft is a registered trademark of Microsoft Corp. 
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also interprets all control and cross- 
reference commands, as well as han- 
dling multiple help files. For example, 
if an application has five open help 
files and a user asks for help on a 
string, the application must use the Ad- 
visor to query each help file in turn to 
find the desired string match. 

The application must also handle fail- 
ures and be able to display a message 
or beep the speaker when no help is 
available. Conversely, the application 
must,determine what action to take if 
there is help on the same context string 
in more than one help database. 

In addition, the application must pro- 
cess control information. The Advisor 
offers a history function that lets a user 
move backward through the 20 most 
recently viewed help screens. Because 
the context numbers returned by the 
hypertext system uniquely identify each 
help database and context string, the 
history function simply keeps a circular 
queue of the 20 most recently accessed 
context numbers. The application must 
provide a keystroke or clickable screen 
button to engage this history function. 
The application parses a history request 
and then calls the help engine’s history 
function to retrieve and display previ- 
ous help screens. 

Under MS-DOS, the application must 
also provide the interface between the 
Advisor and its environment, including 
memory management and all direct file 
I/O support. 


Taking Advantage 
The hypertext technology described 
here can be leveraged in two ways: By 
supplying supplemental help files for 
use by applications using the hypertext 
system and by incorporating the sys- 
tem into new applications. Supplemen- 
tal help files offer the ability to custom- 
ize and expand on-line help to fill a 
variety of needs. New applications be- 
ing written can benefit from the en- 
forced consistency in file format in that 
all help files can be used by any appli- 
cation that also uses the Advisor. This 
technology also provides a simple frame- 
work for implementing hypertext in 
any application and provides a pain- 
less way to compress text without any 
significant access-speed penalties. 
Searching for information was the 
primary application of computers from 
the beginning. Today’s hypertext-based 
on-screen help systems can begin to 
make the information that people need 
the most more readily accessible than 
ever before. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 
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++ environment is no longer a creature of myth. at 1-617-272-7110, or mail in the coupon below. We're going to 
Introducing our Second Generation Object Database, ONTOS. make a believer out of you. 
The first and only real object database to support C++ that. Pe 


7 
is deliverable and operational at customer sites today. I want the facts on ONTOS. DD6/90 
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Writing a base class is the key to programming with 


few months ago I wrote a 

database program for a cli- 

ent and found myself ma- 

nipulating multiple files in 

multiple directories on mul- 
tiple drives using multiple devices. Al- 
though I'd run into this sort of chal- 
lenge many times before, this particu- 
lar program involved some variations 
on the theme that didn’t quite fit my 
previous work. Nevertheless, I went 
ahead and wrote the program in C, 
rewriting file access/handling routines 
I'd developed before. 

As an afterthought, I decided to use 
C++ to design a basic object or objects 
that would at least minimize some of 
these problems in the future. Although 
there are a number of examples of 
file-type objects around, I haven’t run 
across any that are capable of taking a 
partial file specification, such as TEMP- 
FILE.DAT, and completing it by adding 
the drive and path components. Fail- 
ure to do so can result in unpredictable 
references. For instance, A:TEMP- 
FILE.DAT obviously refers to a file on 
drive A in the current subdirectory. But 
what is the current subdirectory? Is it 
what the user intended? I came to the 
conclusion that a file object starts too 
high up the tree. The first step is creat- 
ing the file specification, the second is 
handling the file. 





Kevin had been coding in C for six 
years. He is working for Computational 
Systems, a vibration analysis company 
in Knoxville, Tenn. Kevin can be 
reached at 508 Valparaiso Rd., Oak 
Ridge, TN 37830. 
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Creating a good base class is like 
sculpting, start with a block of marble 
and then chip away everything that 
doesn’t look like a statue. This took a 
while but the result was class File_Spec. 


File_ Spec 

Although the code that defines the 
File_Spec class is large, it contains noth- 
ing that isn't specific to the creation 
and maintenance of a DOS/Unix-style 
file specification. Each component can 
be retrieved or modified, an incom- 
plete file specification can be completed, 
and the object’s current status is main- 
tained and made available to clients. 
Of course, not all the methods have to 
be included in a given application. I 
have provided a single File_Spec mod- 
ule (FILESPEC.CPP, Listing Two, page 
96) for simplicity’s sake. If the individ- 
ual methods are compiled separately 
and placed in a library, however, then 








only those methods actually used by a 
program will be included. 

If you look at Listing One (FILE- 
SPEC.HPP, page 96) you'll see first that 
I named the fields (attributes in OOP- 
speak) device, prefix, name, and suf- 


fix. The idea behind these labels is to 


provide some degree of abstraction in 
case the object is ported to a system 
where the device doesn’t have to be a 
disk drive, or the prefix a DOS/Unix- 
style path. (For instance, I’ve recently 
been coding on a Prime Series 50 ma- 
chine where the device names are logi- 
cal drives enclosed in <...>.) Next 
you should notice that the device, name, 
and suffix are implemented as arrays. 
C++ books are big on the new op- 
erator and seem to use it at the drop 
of a class hat. ’ve gotten burned by 
poor malloc( ) implementations a time 
or two, where memory ended up so 
fragmented that malloc( ) lost all con- 
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Thepropiemn Major disasters, like the 
Exxon Valdez spill, 
require quick response based on careful data 
analysis. Fortunately, an easy-to-use database 
was already being created which would help. 


The Alaskan Marine 
Contaminants 
Database lets oceanographic chemists easily 
access 60 megabytes of data covering the past 
decade. The database is provided free of 
charge on CD-ROM, and the Windows 
interface means they can get right to work, 
assessing damage to the ecosystems of Prince 
William Sound and other Alaskan waters. 


a aly db_ VISTA III is the only 
eS DBMS with the features 
this project required: C language support, 
Windows compatibility, royalty-free runtime 
distribution, quick performance in large data- 












bases, quality documentation and support. With 


the Alaskan Marine Contaminants Database, 
the difficult job of calculating the long-term 
effects of the Exxon spill is a little easier.” 


db_ VISTA II” 


Database Management System 


- Complete C source code available. No Royalties 
_C Lanaguage Portability & High performance 


Network Data Model. Relational B-tree indexing. Relational SQL query and report 
writer. Single & Multi-user. Automatic recovery. Built-in referential integrity. 
Complete revision capability. Supports: MS-DOS, MS Windows, UNIX, QNX, 
SunOS, XENIX, VMS, Macintosh. OS/2 compatible. Most C Compilers supported. 
LANs: 3COM, Novell, Banyan, Appleshare. Call for other environments. 








Specifications: 


Raima Corporation 3245 146th Place S.E., Bellevue, WA 98007 USA (206)747-5570 Telex: 650301823 
International Distributors: U.K.: (0992) 500919 Germany: 07127/5244 Switzerland: (01)725 0410 
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A Microsoft Windows front end lets chemists select regions from a map 
to retrieve data. And, db VISTA III's SQL-based query and report 
writer lets users perform complex SQL data searches. 


Your DBMS problems may not make the 
headlines, but they are no less important and 
often no less challenging. If you develop 
applications for MS-DOS, MS Windows, 
UNIX, VMS, QNX, OS/2, Macintosh, and 


other environments, db_ VISTA III is your 
solution. 


Call 1-800-db-RAIMA (1-800-327-2462) 


* Reprints of the story, as published in PC Week and Data Based Advisor, 
are available from Raima. 


Power Tools For C Programmers 


RAIMA 


CORPORATION 





db VISTA III DBMS rated number# 1 


For Performance and Flexibility of DBMS Programming Tools- 
PCWEEK Poll of Corporate Satisfaction, August 28, 1989. 
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(continued from page 50) 
ception of order. Because there is no 
specification for memory management 
in C++, it seems wise to limit the poten- 
tial for such problems when objects are 
potentially volatile. 

device, name, and suffix are all rela- 
tively short; any waste space is mini- 
mized, reducing both the code and the 
time required to change them with the 
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Your Left Brain Needs Clipper. 


Organization is everything in business. The left 
side of your brain knows this. It wants order. Economy. 
Precision. All reasons your left brain appreciates 


Clipper 5.0, the premier application development 
system for PCs. 


An open architecture programming system, Clipper 
provides a flexible environment for developing pre- 
cisely the application you need, not a messy approxi- 
mation. Its user-definable commands and functions 
let you configure the Clipper language for your exact 
requirements. Its compiler generates .EXE files for 
rapid execution and cost-free distribution. Its new 
linker even lets you build and run applications larger 
than available memory! And its elegant network support 
yields high performance on even the largest systems. 


So, if you’re charged with coaxing order out of chaos 


for your business, put Clipper in your programming 


arsenal today. It has exactly the programming power 
you need! 


Clipper.5.0 


The Application Development Standard 


£437 390-1923 
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Nantucket Corporation, 12555 West Jefferson Boulevard, Los Angeles, CA 9C066. 213/390-7923 FAX: 213/397-5469 TELEX: 650-2574125. Nantucket, the Nantucket 
logo and Clipper are registered trademarks of Nantucket Corporation. Other brand and product names are used for identification purposes only and may be trademarks or 
registered trademarks of their respective holders. Entire contents copyright © 1990 Nantucket Corporation 





change_XXXX(_) methods. The excep- 
tions are prefix (the path) and request. 
Because these may vary in length from 


Creating a good base 
Class is like sculpting, 
start with a block of 
marble and then chip 
away everything that 

doesn t look like a statue 





one character to as many as 78 charac- 
ters, it seemed more reasonable to swal- 
low the overhead and reduce RAM re- 
quirements in their case. If you’re won- 
dering what the request attribute ac- 
complishes, it forces me to look and 
not touch. 
All strings that have to be returned 
are returned as a pointer to request, 
Which is allocated as needed. Obvi- 
ously I could reduce code and execu- 
tion overhead even more if, instead of 
copying the device, name, and so on 
to another string and returning it, I 
simply returned pointers to the respec- 
tive attributes. I must confess, how- 
ever, that I might be tempted at some 
point to modify the attributes directly 
by using an alias, instead of playing 
by the rules. What can I say? I'm weak. 
Because I can’t depend on self-disci- 
pline, I’m better off returning some- 
thing that can’t modify the originals. 
Besides, I have to create another string 
to return the complete file specification 
to clients anyway. Why not let the caller 
pass a string pointer for the method to 
fill? Two reason: First, without bounds 
checking there’s no way to be sure the 
passed string is big enough, and sec- 
ond, this adds to the complexity of 
using the class methods, without really 
buying anything. 


Making It 

The first four methods in Listing Two 
are the constructors and the destructor. 
Constructors constitute a built-in setup 
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or initialization routine for an object. 
All you have to do is declare the object, 
and the compiler automatically calls 
the appropriate constructor. C++ also 
allows you to have more than one con- 
structor (or method) with the same name 
(hence multiple constructors). Depend- 
ing on the number and type of parame- 
ters passed, the compiler determines 
just which method you need. This is 
called “overloading” and is an exam- 
ple of polymorphism. More on this later. 

There is a drawback to constructors: 
They always return a reference to the 
object created. If problems occurred, 
you'll have a malformed object. There’s 
no such thing as an error or even a 
NULL return. Consequently, you should 
check the status (see status() later) 
prior to using the object (see Class File 
for examples) and check errnofor mem- 
ory allocation errors following the ob- 
ject’s creation. This necessity is irri- 
tating and unrefined, but we’re stuck 
with it. On the positive side, because 
both of the objects presented here are 
aware of their own status, they won’t 
misbehave if asked to do the impos- 
sible — they'll simply report an error 
back to the caller. Ideally, incorporat- 
ing a reference to a separate Error class 
would enable you to use the objects 
without worries. 

The first constructor simply creates 
an empty object that can later be filled 
by using the other class methods. The 
second constructor accepts a reference 
(pointer) to another File_Spec object 
and makes a copy of it. These two are 
pretty straightforward. The constructor 
that accepts a character string, how- 
ever, isn’t quite so obvious. 

Following initialization of the vari- 
ous attributes, the (char*string) con- 
structor uses a finite state machine to 
parse the string passed to it. This string 
may consist of any or all combinations 
of a device, prefix (path), name, and/ 
or suffix (extension.) The prefix may 
be a full or partial path, but must end 
with a backslash to be properly recog- 
nized. Once the string has been parsed, 
checks are made both to see which 
components are missing and for valid 
file characters. 

You indicate to C++ that a method 
is a destructor by prepending a tilde 
(~) to the class name. This message is 
automatically passed to an object when- 
ever the object passes out of scope and 
is meant to perform any necessary 
cleanup. In the case of File_Spec this 
means deallocating any memory as- 
signed to prefix or request. 


The Rest of Fi/e_ Spec 
Status( ) returns the condition of the 
file spec. A non-zero return value indi- 


Your Right Brain Wants It! 


While your left brain duly notes the benefits of 
Clipper programming, the right half is wild about how 
you get them! Imagine a programming environment 
with no limits. The language can be easily extended 
with your own routines and you can even integrate 
code from other languages, like C and Assembler. 
You're always free to configure Clipper to suit your 
own programming style. 
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on larger platforms or in other PC formats. It’s no 
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will be a breeze, using familiar Clipper code. There’s no 
end to the possibilities you can pursue with Clipper! 


Clipper’s open architecture system will fire your 
imagination with unparalleled freedom. It’s an 
unlimited palette of pigments for a developer's mind. 
So, if you’re ready to let your imagination inspire your 
applications, indulge yourself with Clipper 5.0. It has 
everything you need with anything you'd want. 


Clipper. 5.0 


The Application Development Standard 


213/390-7923 
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cates a problem of some sort. Exactly 
what the problem is can be determined 
by examining the value. The low nib- 
ble of the low byte of the status word 
indicates whether or not the spec is 
complete; the high nibble of the low 
byte of the status word indicates inva- 
lid file characters. Next is, in my opin- 
ion, one of the most exciting aspect of 
object-oriented programming — opera- 
tor overloading or polymorphism. 

C allows you to create new types 
with the typedef operator. What it 
doesn’t do is redefine operators to han- 
dle the new types. With C++, you can. 
This provides genuine language exten- 
sibility, which is one of the things that 
gets Forth programmers so excited (even 
if they can't figure out what they did a 
week later). Most of the C operators 
can be overloaded, and early versions 
of File_Spec got rather carried away 
with this capability. By dint of much 
pruning, we are left with the equal sign 
(=). In this incarnation, File_Spec= 
doesn’t even do much, it just calls 
copy( ),a private method. Operator over- 
loading is a powerful capability, and 
everyone will tell you it can be abused. 
They’re right, but go ahead and abuse. 
Get it out of your system. I did. Now 
back to earth. 

The get_XXxXX( )Jand change_XXXX 
() methods should be readily under- 
standable. Because both, request and 
prefix, have lengths associated with 
them, they are only reallocated if they 
aren't long enough. (I know. If I’m 
concerned enough about storage to 
make them dynamic to begin with, why 
don't I shorten them when possible. 
What can I say? GIGO is one thing, but 
someone has to pick up the garbage.) 
The change methods also keep the con- 
dition flags up to date. The read_only() 
method is to prevent the change meth- 
ods from working at inconvenient times, 
such as when the file is open. 
Check_prefix( ) determines whether or 
not a path is complete. It does this by 
checking for a backslash as the first 
character. If there is no backslash, the 
path is relative to the current working 
directory. Next it looks for a period (.) 
followed by backslashes or another pe- 
riod. This refers either to the current 
directory or to the parent directory. 
The last step is to make sure the prefix 
ends with a backslash. 

One of the principles of object-ori- 
ented programming is late binding. With- 
Out getting into details or specifics, this 
means that decisions concerning which 
functions to call or what parameters to 
pass can be delayed until run time, 
thus making a virtue of procrastina- 
tion. The advantage is an increase in 
the flexibility of the program. In keep- 
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ing with this principle, File_Spec ob- 
jects do not attempt to automatically 
complete themselves until specifically 
requested to do so. This means that a 
partial File_Spec can be instantiated, 
passed around, copied, and modified 
without worrying about the validity or 
presence of a drive or path until those 
elements are necessary. 

Complete( ) attempts to resolve an 


C allows you to create 
new types with the 
typedef operator. What 
it doesn't do is redefine 
operators to handle the 
new types. With C++, 
you can 





incomplete file specification. If a name 
was not specified or if any of the attrib- 
utes have invalid characters, complete( ) 
immediately returns a FALSE. If com- 
plete() passes those tests, it checks for 
a device specification and, if one isn’t 
found, calls DOS for the current drive 
using /I_get_drive(_).1 wrote the assembly 
language module (LOWIO.ASM, Listing 
Five, page 111) to provide three func- 
tions. First, I needed a routine for get- 
ting just the current drive (without the 
current working directory). Second, I 
needed to be able to get the current 
working directory of another drive. Third, 
I wanted a routine to truncate a file at a 
position other than its beginning. 

The last step is to check for and, if 
necessary, complete the prefix. If the 
prefix is incomplete then parse_prefix( ) 
is called. Space is allocated for a path 
name, and then DOS is called for the 
current working directory for the speci- 
fied device via //_get_cwd(). Again, as 
in the constructor, a finite state ma- 
chine is used to build the prefix. Rela- 
tive references (. .\ and .\) are treated 
as DOS would. This routine, though, 
is a bit smarter, or takes a bit more for 
granted, than DOS. Multiple backslashes 
are ignored. For instance, \\ subdir \is 
treated as \ subdir\ . More than two 
periods in a row are treated as two 
periods in a row: ...\ subdir\ = ..\ 
subdir \ . And two or more periods in 
a row without a backslash are treated 
as two periods with a backslash: . . sub- 
dir = ..\ subdir. Obviously these fixes 





are not guaranteed to produce what 
you and/or your user had in mind, but 
the chance of possible harm seems mini- 
mal. 


Class File 
Class File (see FILE.HPP, Listing Three 
page 106 and FILE.CPP, Listing Four 
page 108) is the first derived class of 
File_Spec. Its purpose is to bundle the 
basic file operations such as create, 
read, rename, and so on into a single 
object. File is defined as a :public de- 
scendant of File_Spec so that all of the 
File_Spec methods are available to File 
and its clients. 

The first File constructor is defined 
like this: 


File::File(char *name, int open_flag 
= FALSE):(char *name) 


The phrase int open_flag = FALSE is 
one of two points worthy of comment. 
This phrase defines a pass parameter, 
open_ flag, and states that if none is 
provided to default to FALSE. Default 
parameters are sexy. They’re a kind of 
“just give me the usual” to the com- 
piler. The other point worth noting here 
is the phrase ... :(char *name). This 
is a call to the parent’s class construc- 
tor. As you can see, the File class doesn’t 
use the name parameter itself but in- 
stead passes it on to its parent, File_Spec. 
Although a child constructor does not 
automatically call its parent construc- 
tor, the parent destructor is automati- 
cally called. 

Next, exists(_) reports to its client on 
the existence of the file specified. In 
addition to reporting to clients, the 
exists(_) method is used by the File meth- 


ods open( ) and create( ). With these 


two we come to a somewhat peculiar 
function call: 


::close(tmp_handle); 


C++ defines an “overload” directive 
that is intended to allow the programmer 
to use the same name for multiple func- 
tions and which, according to the books, 


should work like this: 
overload foo: 
int foo(char *): 
int foo(unsigned int); 


Following this declaration, you should 
be able to issue calls to foo...) and 
depending on the type and number of 
parameters passed, the compiler will se- 
lect the appropriate function. Unfortu- 
nately, there is a bug in Zortech’s 1.0 
implementation and explicit overload- 
ing doesn’t work properly. When I spoke 
to Zortech’s tech support people about 
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this they recommended using the :: op- 
erator as a workaround. This operator 
is a scope qualifier (notice its use in all 
the method definitions to restrict their 
scope to their class). When used with- 
out a class name it is a global reference 
and enables me to access the standard 
C close(_) function. I also use the :: op- 
erator to access the library versions of 
open( ), read( ), and renamec ). 

As for read() and write(), under 
DOS, Unix, and many other operating 
systems, the file pointer is automati- 
cally advanced whenever a read or write 
operation is performed. While this is 
convenient in the case of a sequential 
file, most of the time it constitutes an 
undesired side effect (certainly when 
you're writing a random access data- 
base program). For this reason I added 
an auto-advance file attribute, which 
is set when the object is opened or 
created by ORing F_ADVANCE with 
the other file attributes. Consequently, 
if a File is opened or created with the 
F_ADVANCE flag it behaves just as you 
would expect it to. Without this flag, 
however, reads and writes don’t lose 
their position in the file. Now just imag- 
ine a (descendant) database class us- 
ing methods such as retrieve() and 
replace( ) instead of Ilseek(), read ), 
lseek( ), write( ). Seems just a hair more 
elegant, doesn’t it. 

Truncate( )is a routine that has been 
part of my standard library for some 
time. When DOS is called to write a file 
and the number of bytes specified is 
zero, DOS truncates the file at that point. 
For reasons of safety and history, the 
C write() routines doesn’t do this; it 
returns zero bytes written. I can’t really 
argue with that philosophy, but some- 
times you must truncate a file. In the 
case of the File class, the write(_) method 
continues to behave as expected and 
returns immediately, with no effect, if 
zero bytes are written. An explicit mes- 
sage to a File object to truncate though, 
uses DOS to actually chop off the file 
at the current file pointer location. 

Set_ position( ) and get_ position( )al- 
low a File client to specify where the 
file pointer should be. Size(_), renamet ), 
erase(_),and copy( )do what their names 
suggest. Notice that both copy() and 
rename( ) operate whether the file is 
open or not. They both preserve the 
current condition, restore upon com- 
pletion, and, aside from the long-winded 
error-testing stuff, they’re all simple. 


Epilogue 

An obvious heir of File is class Buf_File 
that would provide buffered I/O. This 
would be very easily accomplished by 
descending publicly from class File and 
writing new read() and write( ) meth- 
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ods. Nothing else is required. A class 
Text_File might in turn descend from 
Buf_File. A Directory class could de- 
scend directly from File_Spec. C++ 2.0 
offers multiple inheritance and the pos- 
sibilities boggle the mind. 

I chose C++ for my OOP explora- 
tions thinking that my familiarity with 
C would enable me to clearly see what 
OOP was against — the backdrop of a 
known language. In retrospect I think 
it had the opposite effect. 

In many ways object-oriented pro- 
gramming is like writing several. mini- 
programs. This has the advantage of re- 
stricting the problem domain at any given 
point to a more easily managed size. I 
also found that if one thinks of objects 
in this way they are easier to define. For 
a lucid description of the concepts of 
OOP, I highly recommend Bertrand 
Meyer’s book, Object-oriented Software 
Construction (Prentice Hall, 1988), which 
does an outstanding job of describing 
what OOP is and isn’t and, although the 
book uses Eiffel (which Meyer wrote), 
it helped my C++ programming im- 
mensely. C++ in turn is having an impact 
on my C programming. 

OOP’s promise is to bring us a bit 
closer to component level design and 
implementation. I think OOP does have 
the potential to accomplish this. The 
cost is another layer of code between 
you and the machine. This means 
slower and larger programs, in other 
words, less efficient use of computer 
resources. On the other hand, the extra 
layer of abstraction will mean more effi- 
cient use of the programmer. No lan- 
guage can decide this swap-off for us. 
There will always be a need and a time 
for assembler, just as there will always 
be a need and a time for dBase IV. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings Cower- 
case) at the log-in prompt. 
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A Pixel Ordering 








Algorithm 


A shortcut for interactive development 


ersonal computers can gener- 

ate and display some very inter- 

esting graphics. Unfortunately, 

some of the most interesting pro- 

grams require hours to produce 
a single graphics screen. Mandelbrot 
sets and ray-tracing programs do ex- 
tensive floating-point calculations for 
each pixel of the final display. The 
iterations can be painfully slow if the 
resulting image needs touching up. 
Often, a general idea of how the final 
image will look is enough to act on, 
but the standard linear approach to 
drawing the screen can mean a long 
wait just to find out what’s going on in 
the lower right-hand corner. 

For programs that produce graphics 
one pixel at a time, a better method of 
pixel ordering provides a shortcut dur- 
ing interactive development. By select- 
ing pixels that are always evenly dis- 
tributed on the screen, the general char- 
acter of the final image can be seen 
early on. Subsequent calculations con- 
tinuously improve the focus until full 
resolution is achieved. This makes it 
possible to jump in early and adjust 
colors, move objects, or zoom in on a 
particular area of interest. I have imple- 
mented this algorithm for viewing the 
Mandelbrot set, but it also applies as 
well to ray-tracing or any other pixel-by- 
pixel task. 


Reversing Bit Order 
Part of my job is writing software to 
receive data transmitted from high- 


Norton is a systems analyst/program- 
mer with the Harvard University At- 
mospheric Research Project and can 
be reached at 202 Ridge St., Winches- 
ter, MA 01890. 


56 


Norton T. Allen 


altitude research balloons. Information 
from many different sensors is collected 
on the balloon, sorted into a standard 
data structure, and then broadcast as a 
serial bit stream. On the ground, the 
process is reversed. Bits are collected 
into bytes, and the bytes become mem- 
bers of structures. To help sort things 
out, we use a frame counter in the data 





Figure 1: Bit-reversed numbers can 
be used to address pixels in a row 





Figure 2: The results of combining both 


indices in a single counter by interleav- 
ing the bits of their binary represent- 
ations in reverse order 





stream. This is a 1- or 2-byte integer 
that increments every time it is trans- 
mitted. Once we successfully locked 
onto a data stream, but the frame 
counter readout showed no apparent 
pattern. By changing the display to bi- 
nary, the problem became obvious — 
the normal bit order (MSB — >LSB) was 
reversed (LSB — >MSB in our case). 

In that case, bit-reversal was the root 
of the problem. When I began thinking 
about generating pixel-oriented graph- 
ics, however, bit-reversal was the key 
to a solution. When counting the bi- 
nary integers from 000, to 111,, the 
most significant bit on the left is not set 
until the halfway point at 700., If the 
bits are reversed, the least significant 
bit is not set until halfway through, and 
all bit-reversed numbers up to that point 
are even. As Figure 1 shows, these 
bit-reversed numbers can be used to 
address a row of pixels. Only even 
pixels are addressed until Z=100,. At 
each step, the distribution of filled and 
unfilled pixels is as uniform as possible. 

This is fine for addressing a single 
row of pixels, but both rows and col- 
umns need to be addressed. Two inde- 
pendent counters in a nested loop could 
be used, but this would not give the 
desired result. The inside loop would 
completely fill one row before the next 
evenly-spaced row was selected. 

The following algorithm combines 
both indices/coordinates (X, Y)in a sin- 
gle counter, Z, by interleaving the bits 
of their binary representations in re- 
verse order. The variable map (shown 
in Figure 2) keeps track of which bits 
correspond to which coordinate CX or 
Y). Bits in Z, which correspond to zero 
bits in the map are part of the X coordi- 
nate. Bits corresponding to one are 
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QS/2 and 
Windows go 
too far. 


DOS doesn’t go 
far enough. 


At least it didn’t 
until now... 











part of the Ycoordinate. The results are 
demonstrated in a 4 X 4 region in Fig- 
ure 2. 

This is close to the desired result, 
but the distribution at the halfway point 
(shown in the second pattern in Figure 
2) could be more uniform. Half the 
rows are completely filled in, while the 
other half haven't been filled in at all. 
This problem can be seen in a 2 X 2 
example. The algorithm described pro- 
duces X, Ypairs in the order (0,0), (1, O), 
(O, 1), (1, 1), which can be represented: 


01 
23 


A more desirable X,Y pair ordering is 
(0,0), (1, LD), (0, 1D), 1,0), or: 


03 
21 


The xX coordinates for both orders are 
the same, but the Y coordinates are 
different. The following inset shows a 
truth table comparing the original or- 
der (X,, Y,), and the new order CX, Y’,). 


Xz 

Y,| 01 
Y, 0| 01 
1/10 


PIXEL ORDERING 


The truth table shows that Y’, = X, 
® Y,. © designates the exclusive-OR 
operation. Once X, and Y, are cal- 
culated, it is easy to generate Y’,, and 
report the new point (X,, Y’,). Figure 
3 shows how this works in a 4 x 4 case. 


I have implemented this 
algorithm for viewing 
the Mandelbrot set, but 
it would apply as well 
to ray-tracing or any 
other pixel-by-pixel task 





There are a few rough edges dealing 
with arbitrary rectangular regions. First, 
the ranges may not be even powers of 
two. This is handled by rounding up 
to the next even power of two and then 
discarding any points outside of the 
rectangular region. Second, even after 
rounding, the regions may not be 
square. One coordinate may have more 
bits than the other. This is handled by 








storing the extra bits on the LSB end 
of map. If X has 2 bits and Yhas 4 bits, 
map = 101011, The exclusive-OR op- 
eration imposes an additional compli- 
cation. The Yrange must be at least as 
large as the X range. This is handled 
by reversing the roles of the two coor- 
dinates, if the X range is larger. 


Compilation 
I have implemented a Mandelbrot set 





Figure 3: Y’, is generated and the new 


point (X,, Y’,) is reported as shown 


in this 4X 4 matrix 





C Communications Toolkit 








Now you can add professional serial communications to any C 
application. C Communications Toolkit makes it fast and easy. 
You don’t need to spend months writing, testing and debugging 
ied device support, file transfer protocols and CRC rou- 
ines. 


Power 

Speed: up to 115,000 bps. 

Flow control: XON/XOFF, RTS/CTS, DTR/DSR. 

Interrupts: Receive, Transmit, Modem Status, Line Status. 
Modem Support: Full Hayes command set + Telebit & UDS extensions. 
Terminal Emulation: VT52, VT100, ANSI X3.64, ANSI.SYS. 

Full DCA/Intel CAS support (FAX and file transfer). 


Flexibility 

Supports an unlimited number of serial ports. 

Supports any |/O address and IRQ line. 

Log output and/or input to a printer. 

Capture output and/or input to a buffer and/or file. 

Multi-port board support for AST, Digiboard, Commtech, Arnet, etc. 


File Transfer 

Single file: ASCII, XMODEM, XMODEM-CRC, XMODEM- 1k. 
Multi-file: YMODEM, YMODEM-g (for error-free links), 

KERMIT (with run-length encoding and 8th-bit prefixing extensions). 


Communications Chip Support 
INS8250/A/B, 16450. 

INS16550/A (including FIFO buffers and interrupt threshold). 
Zilog Z-80 SIO/DART (asyne., SDLC, HDLC, BiSync). 


Documentation 


Over 200 functions. 600-page manual with 100 pages of Toolkit tutorial 
(build a powerful terminal program in easy stages),125 pages of serial com- 
munications background and over 35 example programs. 
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Full source code included — No run-time royalties. 30-day warranty. 
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Announcing 
the marriage 
of DOS an 
X-Windows. 


Join us for the festivities 
August 13-16, 1990 at our Third Annual 
view VAR and API Conference 
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(continued from page 58) 
example using grafix.lib — Kent Por- 
ter’s graphics library (see DDJ, Febru- 
ary 1989 through August 1989). This 
library is compatible with Microsoft C 
5.1 and Turbo C 2.0. I compiled this 
project using Lattice C, Version 3.41, 
and some minor modifications were 
necessary. Lattice did not support mixed 
mode programming before Version 6.0. 
Grafix.lib contains explicit “far” desig- 
nations. These designations are redun- 
dant when programming in the large 
model, and problematic when program- 
ming in the small model. Because my 
program is small, I removed the ex- 
plicit declarations. I also ran into syn- 
tax difficulties using Kent’s #define byte 
unsigned char, which vanished when 
I used typedef unsigned char byte. 

On the assembly side, I modified the 
initializations to use the Lattice assem- 
bly macros to provide model-sensitive 
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procedure definitions. I also followed 
Lattice’s recommendation and saved ES 
when that register was used. Finally, 
Lattice function and data names are 
not prefaced with an underscore in 
assembly modules. 


The Code 
The file points.c (Listing One, page 
116) contains two routines: init_points( ) 
and next_point( ). The X and Y limits 
are passed to init_points(_), which initial- 
izes the mapvariable. next_point( ) de- 
fines the coordinates of each succes- 
sive pixel through pointer arguments, 
returning a non-zero value when the 
area has been completely filled. 
Mandel.c (Listing Two, page 116) pro- 
vides functions particular to the Man- 
delbrot example. The function set_ 
range( ) creates a virtual coordinate sys- 
tem. This function is similar to grafix’ 
setcoords( ), with two major differences: 
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The function set_range() guarantees 
that the new coordinates preserve the 
aspect ratio of the screen. One inch 
on the screen should represent the same 
number of units in either the X or the 
Y direction. If one range is proportion- 
ately smaller than the other, the coordi- 
nates are extended to place that range 
in the center of the screen. The func- 


The pixel ordering 
presented here 
is very closely 
related to dither 
matrices used for 
generating gray 
shading on 
monochrome monitors 


tion setcoords( ) only provides func- 
tions to convert from virtual coordinates 
to device coordinates, but in this pro- 
gram we need to do the reverse. man- 
del_color() contains the Mandelbrot 
calculations to determine the color of 
a particular pixel. 

Generate.c (Listing Three, page 116) 
provides the operational framework for 
the demonstration program and point.h 
(Listing Four, page 118) is the include 
file. generate() calls next_point() to 
step through the pixels, and calls man- 
del_color() to determine their color. 
menu( ) is called any time a key is 
pressed. menu() lets the user move 
and scale a rectangular box on the 
screen to identify a region for closer 
examination. The area in the rectangu- 
lar box can be focused or zoomed on. 
Focusing confines subsequent calcula- 
tions to the bounds of the box. This 
gives a sharper look at a small area, in 
the context of the larger screen. Zoom- 
ing in rescales the virtual coordinates of 
the screen to the coordinates of the box. 

This example demonstrates the ad- 
vantages of this algorithm. A small re- 
gion can be zoomed in without waiting 
for the completion of intermediate 
views. By displaying the full scale im- 
age at low resolution, the zooming can 
be accurately selected. Focusing can 
be used to choose from different re- 
gions. The beauty of this algorithm is 
that the same amount of detail is pro- 
vided in the same amount of time, re- 


Dr. Dobb’s Journal, June 1990 


gardless of whether the image is zoomed 
or focused. If you zoom, a longer wait 
will produce even more detail. 


XOR 
To overlay a movable box on the graph- 
ics display, a significant addition was 
made to the library. I added the ability 
to draw pixels on the screen by calcu- 
lating the exclusive-OR (XOR) of the 
current foreground color and the color 
already on the screen. XOR is very 
useful for three reasons. If you XOR a 
bit pattern with a pattern of ones you 
get the ones complement of the origi- 
nal bit pattern. Whether writing to a 
black or a white background, a change 
is visible. XORing a bit pattern with 
zeros has no effect. If a bit pattern is 
XORed with itself, the result is zero. 
XOR is associative. If bit pattern X is 
XORed with non-zero mask M, a result 
will be seen. If the result is XORed with 
M again, the result is (X¥ ® M) ® M. 
This is equal to X ® (M © M), which is 
equal to X ® O, which is equal to_X. 
XOR allows an image to be put on 
and removed from the screen quickly 
without destroying the image being writ- 
ten over. This is very useful for interac- 
tive applications. Not only does it allow 
the cursor to move around a graphics 
screen, but it also enables experimen- 
tation with the placement of objects be- 
fore committing them to an image. 
This is so useful that it is implemented 
in the hardware of the EGA adapter. The 
write function register can be set to re- 
place the stored value, or to perform 
OR, AND, or XOR functions between 
the stored value and the value being 
written. In this case, I want to move a 
rectangular box. The function to draw 
the box is draw_rect( ). This function 
calls draw_line( ), which calls draw_ 
point( ). Adding a XOR mode to draw_ 
point() allows the box to be moved. 
Listing Five, page 118, contains defini- 
tions to be included in grafix.h, and 
Listing Six, page 118, contains wmode.c, 
which defines the function set_write_ 
mode( ). This module should be com- 
piled and included in grafix.lib by us- 
ing the LIB grafix twmode; command. 
Two changes need to be made in 
drawpt.asm. Below line 14, where the 
vuport pointer is declared, add the line: 
EXTRN _write_mode : BYTE. Also 
change line 78 from: xor ah, ah to: mov 
ah, _write_mode. Assemble drawpt, 
then replace it in the library with the 
command: LIB grafix -+drawpt. A simi- 
lar change can be made to hline.asm 
by adding the declaration after line 14, 
and changing line 106. 


Other Applications 


To use this algorithm in a ray-tracing 
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study, replace the functions in man- 
del.c with the ray-tracing code and 
change the calls in generate( ) accord- 
ingly. Another application of this algo- 
rithm is for demo programs, where one 
graphics image fades into another. Run- 
ning the fade one pixel at a time is 
much too slow. Divide the image into 
small rectangles, use this algorithm to 
index the rectangles, and use a bitbit 
routine to copy the rectangles. 

The pixel ordering presented here 
is closely related to dither matrices used 
for generating gray shading on mono- 
chrome monitors. For 16 shades of gray, 
the screen is tiled with imaginary 4 x 4 
pixel blocks. Each pixel is numbered 
from 0 to 15, according to its position 
in the order. When the user wishes to 
color an area with a certain gray level, 
only those pixels with numbers less 
than that level are turned on. 


Tradeofts 

This algorithm does much bit twid- 
dling to calculate each set of coordi- 
nates. This adds CPU processing time. 
On the 4.77-MHz XT, this algorithm 
took 15 minutes longer to fill the screen 
than a simple nested loop. If the exact 
calculations for drawing an image are 
already known, it is preferable not to 
use this algorithm. When a lot of CPU 
time is being used, however, it’s nice 
to know if the right picture is being 
generated. Seeing only the left quarter 
of the screen won't help, but one quar- 
ter resolution across the entire display 
is enough to see considerable detail. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings Cower- 
case) at the log-in prompt. 
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system. 
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abort/suspend/resume task 
execution. 
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different message queues. 

* Task control by means of 
semaphores. Get, release, 
check, or wait on semaphores. 
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* Spawn and terminate external 
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nstant-C is an interactive C com- 

piler and integrated development 

environment from Rational Systems, 

based on Rational’s DOS/16M, a 

protected-mode DOS extender for 
Intel 80286- and 80386-based PC com- 
patibles. DOS/10M is also used in such 
products as Lotus 1-2-3, Release 3, 
AutoCAD, Release 10.0, and the DOS 
version of the Glockenspiel C++ com- 
piler. 

Instant-C (IC) provides interactive exe- 
cution, linking, editing, and debugging 
of C code. In addition to loading .C 
files, C expressions can be typed in at 
IC’s # prompt for immediate evaluation. 

Figure 1 shows a sample session with 
IC. First, a buffer is allocated with mal- 
loc( ). This buffer happens to reside in 
extended memory, as shown by a call 
to the DOS/10M function D16AbsAd- 
dress(). As with any product based 
on a DOS extender such as DOS/16M, 
however, the distinction between ex- 
tended and conventional memory is 
largely unimportant: In protected mode, 
it’s all just memory. 

Next, the low-level Microsoft C 
dos_open( ) function is used to open a 
file, and dos_read( ) is used to read the 





Andrew Schulman is a software engi- 
neer who works on networking soft- 
ware for CD-ROM. He is a contributing 
editor of DDJ, and a coauthor of the 
book Extending DOS (edited by Ray 
Duncan, Addison-Wesley, May 1990), 
from which this article is adapted. An- 
drew can be reached at 32 Andrew St., 
Cambridge, MA 02139. 
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Examining 
Instant-C 


an interactive environment 


Andrew Schulman 


file into our buffer. We could just as 
easily use the C standard library func- 
tions fopen( ) and fread(), but using 
these DOS-specific routines in conjunc- 
tion with the extended-memory buffer 
shows how a DOS extender transpar- 
ently manages the interface between 
MS-DOS and protected mode. 

Note how C statements, declarations, 
and preprocessor statements can be 
freely mixed at the # prompt, some- 
what like mixing statements and decla- 
rations in C++. In this “immediate 
mode,” leaving the semicolon off a state- 


# char *p; 

# #include <malloc. h> st 

MALLOC.H included 

#p=malloc(i0240) i 
address 03B8: o1A6" / 

##include “dosi6.h” 

DOS16.H included __ 

# DiGAbsAddressip) _ . 
2940246 (Ox2CDD56) 

# #include <dos.h> _ | 

DOS.H included 

# int handle: 











#_dos_open(“\\msc\\inc\\dos.h”, 0, handle ) 


# handle 
7 
# unsigned bytes; 
#_dos_read(handie p, 10240, ayes) 
0 
# bytes 
5917 (0x171D) 
#_dos_close(handle) 
0 
# printf(“%s\n", p) 





// display file 


Figure 1: A sample session with 
Instant-C 





Exploring protected mode with 


ment tells IC to print its value. This is 
one way that interactive C differs from 
“normal” C. In Figure 1, I displayed the 
value of the variable bytes simply by 
typing its name. 

IC provides a command language in 
the form of preprocessor statements. 
To compile a file FOO.C, for example, 
you could type #/oad foo.c at the IC 
prompt. The command language can 
also be used under program control: 


ix > 1) 
_interpret(‘‘#load foo.c’’); 


Working with a “quick” environment 
raises the issue of compatibility with 
production compilers. IC has a stan- 
dard library, but for using the Microsoft 
C library instead, for example, IC comes 
with scripts to load MSC 5.1’s real- 
mode large-model LLIBCE.LIB, load IC- 
supplied .LIB modules to replace the 
few Microsoft functions that won’t work 
in protected mode, #include the Micro- 
soft header files into IC, and then write 
out a new, large model, MSC-compat- 
ible IC. The new executable not only 
runs your C programs in protected mode 
under MS-DOS: It executes the Micro- 
soft C library in protected mode as 
well. It seems like quite an accomplish- 
ment to load real-mode object code 
and execute it in protected mode, but 
this is standard procedure for DOS ex- 
tenders. 

IC gives C the interactive style of 
languages such as Forth and Lisp. Con- 
trary to the stereotype of an interpreter, 
IC uses native object code. In fact, IC 
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(continued from page 62) 

can dynamically load and link .OBJ 
and .LIB files, and can write out stand- 
alone .EXE files. Such stand-alone execut- 
ables include a built-in protected-mode 
DOS extender. 

The two major benefits of protected 
mode — memory protection and a large 
address space — mesh with the needs 
of a C development environment. The 
large address space (up to 16 Mbytes 
of memory) means that even very large 
C programs can be developed interac- 
tively. Hardware-based memory pro- 
tection also helps insulate IC from bugs 
in user code and assists IC in finding 
bugs. An interpreter running in pro- 
tected mode can off-load some of its 
type-checking onto the CPU. 

IC is not only a product built using 
a DOS extender, it is an example of 
why “EXTDOS” is necessary in the first 
place. IC has been in existence since 
1984. As more and more features were 
added to the product, it began to strain 
against the artificial 640K “Berlin Wall” 


# char “s: 
# atoi(s) 


of real-mode MS-DOS. Rational Sys- 
tems developed DOS/16M for IC to 
cope with its expanding features and 
resulting expanding memory consump- 
tion. Thus, DOS/16M is based on IC, 
as much as IC is based on DOS/106M. 
For a short time, Rational Systems mar- 
keted a separate protected-mode IC/ 
16M alongside real-mode IC. In Octo- 
ber 1989, with IC Version 4.0, Rational 
discontinued the real-mode version. 


Using Protection 
A protected-mode interpreter must al- 
low the user to violate the CPU’s pro- 
tection model without causing the in- 
terpreter itself to be shut down. I have 
discussed this issue at length in my 
two-part article, “Stalking GP Faults” 
(DDjJ, January 1990 and February 1990). 
In IC we can freely type protection 
violations at the # prompt, as shown 
in Figure 2, because IC installs its own 
general-protection violation (GP fault) 
handler. 

In addition to helping find bugs dur- 


// oops: forgot to initialize 


## 492: Invalid address 0AA8:4582 at__CATOX+000E _ 
# #reset 





Figure 2: Detecting a protection violation 
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ing development, the hardware-based 
memory protection of the Intel proces- 
sors also can be put to work in the 
deliverable version of a product. 

For example, functions often per- 
form their own range checking. Each 
time the function is called, its parame- 
ters are checked against the size of the 
target object. But because the hard- 
ware does range and type checking in 
protected mode anyway, and because 
we pay a performance penalty for this 
checking, we should get the hardware 
to do our checking as well. 

This requires devoting a separate se- 
lector to each object for which you 
want hardware-assisted checking. To 
see why, let’s overstep the bounds of 
an array and see whether the Intel pro- 
cessor detects an off-by-one fencepost 
error. In Figure 3, the pointer p points 
to a block of 2013 bytes, numbered 0 
through 2012, so p/2013/ clearly over- 
steps its bounds. If protected mode is 
all it’s cracked up to be, the CPU should 
have complained, right? Why didn’t it? 

The reason is that malloc( )and other 
high-level-language memory allocators 
suballocate out of pools of storage. 
They do not ask the operating system 
for memory each time you ask them 
for memory, nor would you want them 
to. From one segment, malloc(_) may 
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@ Uses AT-style extended memory if 
present. 


The 
Heap Expander™ 
version 2.05 


Now your programs can have virtually unlimited heap space 

using expanded memory, extended memory and disk space. 

The Heap Expander's initialization code checks the system's 
resources and uses whatever is available. 


Libraries and Source Code for: 


@ Turbo C 
@ Microsoft C 4.0 5.0 and 5.1 


@ Uses LIM-standard expanded memory 
if present. 


Requires an!BM PC, XT, AT, orclose 


compatible with MS-DOS or PC-DOS version 
@ Swaps data to disk as needed. 2.0 or above 


MC/VISA/COD call 
1-800-248-1045 x 100 (US) 
1-800-952-5560 x 100 (Idaho) 


The Tool Makers 


P.O. Box 2151 
Santa Cruz, CA 95063 


Foreign customers add $6.00 for shipping 408-458-0690 
and handling. 





CIRCLE NO. 239 ON READER SERVICE CARD 








BSD 4.3 UNIX uritities For OS/2 


UNIX tools and applications ported directly from BSD 


source under license from AT&T and UC Berkeley 
UNIX is a registered trademark of AT&T 







apply apropos ar at atq awk be bib cal calendar cb chgrp chmod cmp col 
comm compress cp cpp cron crypt csh ctags cu diction diff ed egrep eqn 
error ex fgrep find finger fmt fold fortune from getty graph grep indent 
jove kermit kill lex listrefs login Is m4 mail make man more mv neqn news 
notes nroff od plot pr ps ratfor res refer rm roque sccs sed sh sort spell 
style su tail tar tbl tc tip tr trek troff unifdef uniq units yucp uuencode uuq 
uusend uux vi vgrind vnews wc xsend xstr yacc zcat ... etc 










The price of $499 includes the $60 royalty to AT&T, 
shipping, full support, 1 year of free upgrades, and 2 
volumes of printed and online documentation 
Multiuser environment, PM compatible 
Contributed software is included at no charge 











Argosoft Corporation 


59120 Argonaut Way, Suite 519, Fremont, CA 94538 
Voice (415) 795-7921, Fax (415) 795-7948 


CIRCLE NO. 455 ON READER SERVICE CARD 









EXAMINING ROOM 


(continued from page 64) 

allocate several different objects. While 
we think of the object p as containing 
2013 bytes, the processor sees a con- 
siderably larger object: The block of 
memory malloc( ) received the last time 
it asked DOS for memory. What size is 
the object the CPU sees? 


# D160SegLimit(p) 
24575 (Ox5FFF) 


If this explanation is correct, trying 
to poke p/Ox5FFF/ ought to cause a 
GP fault: 


# plOxSfff] = ‘x’ 
## 492: Invalid address OBF8:002A 


Now, we still need a way to make 
the CPU see things our way. Because 
80286 memory protection is based on 
segmentation, we must devote a sepa- 
rate selector to each object for which 
we want hardware-assisted checking. 
Notice I said “selector” and not ‘“‘seg- 
ment.” We can continue to use mal- 
loc( ) to allocate objects, but when we 
want the CPU to know how big we 
think the object is, we provide an “alias” 
in the form of another selector that 
points at the same physical memory 
but whose limit is smaller. The seg- 
ment limit indicates the highest legal 
offset within a block of memory and is 
checked by the CPU for each memory 
access. 

To create an alias g for the pointer , 
where qs limit is equivalent to the ar- 
ray bounds, we can use two other DOS/ 
16M functions, as shown in Figure 4. 
This takes a physical address returned 
by D106AbsAddress(_ ), together with the 
limit we’re imposing for access to this 
memory, and passes them to D16Seg- 
Absolute(), which constructs a pro- 
tected-mode selector for the same ab- 
solute physical address but with a dif- 
ferent limit. 

In Figure 5, we verify that this worked. 
Attempting even to read from this inva- 
lid array index now causes a GP fault. 

SO we can dispense with explicit 










# char “p; 
# p = malloc(2013) 

address 03B8:01A6: “” 
# p[2013] = ‘x’ 

x’ (0X78) 





Figure 3: This off-by-one error doesn't 
violate protection 


# char “q; 
# q = D16SegAbsolute(D16AbsAddress(p), 


2013); 
0C08:0000 


Figure 4: Creating an alias with a 
shorter limit 





Dr. Dobb’s Journal, June 1990 


bounds checking: The CPU will check 
for us. To control the error message 
displayed when a GP fault occurs, we 
could write our own INT OD handler 
and install it using the DOS set-vector 
function UNT 21 AH=25). Thus, in- 
stead of littering error checking through- 
out our code, protected mode allows 
us to centralize it inside an interrupt 
handler. Errors can be handled after 
the fact, rather than up front. In a way, 
this resembles ON ERROR, one of the 
more powerful concepts in Basic (which 
got it from PL/D. 

This meshes with the advice given 
by advocates of object-oriented pro- 
gramming: “If you are expecting a ser- 
mon telling you to improve your soft- 
ware’s reliability by adding a lot of 
consistency checks, you are in for a 
few surprises. I suggest that one should 
usually check less. . . . ‘Defensive pro- 
gramming’ is a dangerous practice that 
defeats the very purpose it tries to 
achieve” (Bertrand Meyer, “Writing Cor- 
rect Software,” Dr. Dobb’s Journal, De- 
cember 1989). 

By using protection, you may be able 
to make an application run faster in 
protected mode than under real mode, 
because a lot of error-checking and 
“paranoia” code can now be made un- 
necessary. 


Dr. Dobb’s Journal, June 1990 


When finished with the pointer p, it 
is important not only to /free(p) but to 
release the alias in g. Don't use free( ) 
to release this selector, though: The C 
malloc( ) manager doesn’t know any- 
thing about g, which is just an alias, a 
slot in a protected-mode descriptor ta- 
ble. We need to free this slot because 
the number of selectors available in 
protected mode is quite limited: 


# free(p) 
# D10SegCancel(q) 


In moving from real to protected 
mode, programmers may regret that 
segment arithmetic is so restricted. But 
the ability to create aliases, different 
views of the same block of physical 
memory, means that protected-mode 
selector manipulation is actually far 








# q[2013] 


# D16SegLimit(p) 
24575 (Ox5FFF) 
—#D16SegLimit(q) © 
2012 (0x7DC) 


Figure 5: Now the off-by-one error does violate protection 


## 492: Invalid address OBF8:002A in command line 
_ #D16AbsAddress(p) = = Di6AbsAddress(q) ~ 


i. 
# D16SegLimit(p) = = D16SegLimit(q) 


more versatile than real-mode segment 
arithmetic. 


The Intel 286 Protected-Mode Instructions 
Transparency is a major goal of DOS 
extenders. But sometimes it is useful 
not to be so transparent. For example, 
DOS extender diagnostic programs and 
DOS extender utilities will generally 
be nonportable, hyper-aware that they 
are running in protected mode. 

The 80286, and also the 286-compat- 
ible 386 and 486 chips, have a number 
of instructions that Intel provides pri- 
marily for use by protected-mode op- 
erating systems but which are also use- 
ful for utilities and diagnostic programs. 
Some of these are listed in Figure 6. 

For example, in the last section we 
called D16SegLimit() to find the size 
of the segments pointed to by pand g. 
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EX AM TN TN Gk OOM 


In operation (though not in implemen- 
tation), D16SegLimit( ) corresponds to 
the LSL instruction, which takes a se- 
lector in the source operand and, if the 
selector is valid, returns its limit (size -1) 


The two major benefits 
of protected mode — 
memory protection and 
a large address space — 
mesh with the needs 
of a C development 
environment 





in the destination operand. For example: 
Is] ax, [bp+6] 


Similarly, the LAR instruction will load 
the destination operand with the “‘ac- 
cess rights” of the selector in the source 
operand if it contains a valid selector: 


lar ax, [bp+6] 


The instructions LSL, LAR, VERR, and 
VERW are special because, even if the 
selector in the source operand is not 
valid, the instructions don’t GP fault; 
instead, the zero flag is cleared. There- 
fore, if these instructions were avail- 
able in a high-level language, we could 
construct protected-mode memory 
browsers and other utilities simply by 
looping over all possible selectors. This 
is an odd form of segment arithmetic: 


for (i=0; i<OXFFFF; i++) 
if lar(i) is valid 
print_selector(i) 


It is easy to make the Intel protected- 
mode instructions available to C and 
other high-level languages, and they 
can be used interactively in IC. 
PROTMODE.ASM (Listing One, page 
120) is a small library of functions, in- 
cluding /sl() and lar( ), that can be 








store LDT) —selector to LDT 


| Figure 6: Some Intel protected-mode 
instructions 


(load segment limit) —size of a segment 

(load access rights) —access rights of segment 
(verify read) —can segment be peeked? 

(verify write) —can segment be poked? 

(store GDT) —base address and size of GDT 
(store IDT) —base addr and size of IDT 

( 








assembled into PROTMODE.OBJ by us- 
ing either the Microsoft Assembler (Ver- 
sion 5.0 and later) or Turbo Assembler. 

PROTMODE.ASM uses the DOSSEG 
directive, which simplifies writing as- 
sembly-language subroutines and uses 
the ENTER and LEAVE instructions pro- 
vided on the 80286 and higher for work- 
ing with high-level-language stack 
frames. These execute a little slower 
than the standard BP-SP prolog/epilog 
but create compact source code. 

PROTMODE.ASM provides nothing 
more than a functional interface to the 
Intel protected-mode instructions. While 
completely nonportable with real mode, 
this module is highly portable among 
16-bit protected-mode systems (it would 
require some modification for use with 
a 32-bit DOS extender). Once assem- 
bled into PROTMODE.OB], it can be 
linked into any 16-bit protected-mode 
program, including an OS/2 program. 
It can be loaded into IC: 


#loadobj “protmode.obj”’ 


You need to supply stub definitions 
for the individual routines in an object 
module loaded into IC. These look al- 
most like declarations or function pro- 
totypes, except that they are followed 
by the construct fextern;/. PROT- 
MODE.H (Listing Two, page 120) is a 
C #include file that contains function 
prototypes for use with IC (ifdef In- 
stantC’) or with any other 16-bit pro- 
tected-mode environment. 

Now it’s time to test the functions. 
Let’s allocate a 10K segment, and see 
what limit /s/() returns. Figure 7 uses 
the FP_SEG( ) macro from Microsoft’s 
dos.h to extract the selector from the 
pointer p, and passes this to /s/(_); Isl() 
returns 10,239, which is clearly the last 
legal offset within a 10K segment, so 
Isl(_) seems to work. (Actually, there is 
an extremely obscure bug in /s/(_). You 
should be able to spot it by looking 
back over Listing One.) 

The verw ) function, like the VERW 
instruction, returns TRUE if a selector 
can be written to, or FALSE if the selec- 
tor is read-only: 


# verw(FP_SEG(p)) 
1 






# Char *p; 
# p = Di6MemAlloc(10240) 
address 0C08:0000 






# Isi(FP_SEG(p)) 
10239 (0x27FF) 





Figure 7: Verify that |sl( ) 
works 
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EXAMINING ROOM 


We can use a DOS/16M function to 
mark this segment as read-only and 
then see if verw( ) has picked up on the 
change in the selector attributes: 


# D16SegProtect(p, 1) 
0 

# verw(FP_SEG(p)) 
0 


The read-only attribute, like other 
aspects of the protected-mode “access 
rights,” applies to a selector, not to the 
underlying block of memory. One se- 
lector can be read-only and another 
read/write, while both correspond to 
the same physical memory. 

Having tested the PROTMODE.OBJ 
routines we can, as promised, write a 
simple loop to display all valid selec- 
tors within our program. In IC, of course, 


Instant-C gives C the 
interactive style of 
languages such as Forth 
and Lisp 





we Can just type this in at the # prompt, 
as shown in Figure 8. 

This will display all valid selectors 
within a protected-mode program (not 
just a DOS/16M program). But to be 
genuinely useful we need to print out 
some additional information about the 
selectors. In addition to using several 
of the functions in PROTMODE.ASM, 
the code in BROWSE.C (Listing Three, 
page 120) also performs some manipu- 
lations on the selector number itself: 
The bottom two bits are extracted with 
the expression 7 & 3, and the third bit 
is extracted with the expression 1 & 4. 

What?! A protected-mode selector, 
unlike a real-mode segment number, 
has no necessary relation to the seg- 
ment’s physical location in memory. A 
protected-mode selector closely resem- 
bles a file handle. It is almost a “magic 
cookie,” but not exactly, in that the 
number itself actually has semantic mean- 
ing: A selector is a record comprised 
of three fields. The bottom two bits 
contain a protection level, zero (most 
privileged) through three (least privi- 
leged). The third bit from the right con- 
tains a “table indicator” — zero means 
the selector belongs to the Global De- 
scriptor Table (GDT), and one means 
it belongs to the Local Descriptor Table 
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Serious Assembly. 


Nobody really takes assembly language 
seriously. Nobody, that is, except Lotus, 
WordPerfect, Novell, and everyone else 
who needs the tightest, fastest code possible. 


But assembly is tough . . . unless you have 
plenty of ready-to-use assembly language 
routines at your fingertips. That’s why indus- 
try leaders spend a lot of time and money 
creating their own, proprietary assembly 
language libraries. 


You could spend your valuable develop- 
ment time building a library; or you can use 
Spontaneous Assembly, the complete 
assembly language library specifically 
designed for serious assembly language 
development. 


Over 600 functions and macros. 

¢ String manipulation * Memory manipulation 

¢ Near/far/relative heap management 

¢ Doubleword/quadword integer math 

e Array management, sorting, and searching 

¢ Character/numeric/string conversion * Buffer 
management * Date and time manipulation 

¢ File and directory management ° File I/O 


basetwo 
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Base Two Development * 


¢ Keyboard I/O * Program/environment control 

¢ Critical error management ¢ Screen I/O with 
windowing—and more. All carefully 
documented, tested, and ready to use. 


Tight, fast code. Fast. 
Every routine is hand-coded and hand- 


optimized (in assembly, of course). And a 
consistent, register-oriented parameter-passing 
convention makes these routines remarkably 
easy to use. With Spontaneous Assembly, 
coding in assembly is as fast as coding in a 
high-level language—without the overhead. 


Powerful memory model support. 
Spontaneous Assembly unleashes the full 


power of memory models in assembly 
language. It supports all Microsoft/Borland 
standard memory models as well as custom 
models and mixed-model programming. And it 
gives you complete control over segment/group 
names and attributes. 


Extensive documentation. 
A complete reference manual describes every 


function, macro, and variable in detail. Step-by- 
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step instructions and technical notes explain 
memory models, library customization, 
integration with C, and much more. 


Spontaneous Assembly. 

Serious assembly language programming 
doesn’t need to be hard any more. Now it can 
be Spontaneous. 


See for yourself. Call now to take advantage 
of our introductory price. Then use 
Spontaneous Assembly for 60 days. If you’re 
not 100% satisfied, send it back for a 

full refund! 


Introductory Price. 


$199 Plus Shipping & Handling. 


Full source code included. No royalties. 
60 day money-back guarantee. 


Visa « MasterCard « Discover 


Call now! 


1-800-ASSEMBLY 


Orders « Information * Support 


For 80x86—based systems running DOS 2.0 or later. MASM 5.1 or TASM 1.0 recommended. 
A Division of Acclaim Technologies, Inc. * 1] East 200 North * Orem, Utah 84057 * (801) 222-9500 
Spontaneous Assembly and Base Two Development are trademarks of Acclaim Technologies, Inc. 
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(continued from page 70) 

(LDT) — and the remaining 13 bits form 
an index into this table. Thus, when 
applied to a protected-mode selector /, 
i & 3 extracts the selector’s protection 
level, and 7 & 4tells whether the selec- 
tor is located in the GDT or LDT. 

Running under IC, a small part of the 
output from BROWSE.C is shown in 
Figure 9. The list runs on and on for 
quite a while. What is the value of this? 

In contrast to real mode where every 
address you can form points some- 
where, protected-mode memory is a 
sparse matrix. At any given time, most 
segment:offset combinations are not 
valid addresses: Dereferencing them 
causes a protection violation. Produc- 
ing a list like this gives us an idea of the 
memory organization of a DOS exten- 
der program. 

From this list, we can see that while 
protected-mode memory is a sparse 
matrix, it’s not so sparse under DOS/ 
16M as under OS/2. We can also see 
that all the entries are marked PL=00, 
indicating that everything is running at 
Ring 0. To double-check that this is so, 


unsigned i; 
for (i=O; i<OxFFFF; i++) 


if (lar(i)) 
printf("%04X \ n", i); 





Figure 8: Display all valid selectors 


000000 
000000 
000400 
000400 
034FE0 
034FE0 
110010 

110010 

032050 
032050 
FAO000 
FAO000 
100010 


LAR=93 
LAR=93 
LAR=93 
LAR=93 


LAR=93 


LAR=93 
LAR=93 
LAR=93 
LAR=81 


_ LAR=81 
_ LAR=93 
~LAR=93° 


LAR=82 


LSL=FFFF 
LSL=FFFF 
LSL=0FFF 
LSL=OFFF 
LSL=FFFF 
LSL=FFFF 
LSL=200F 
LSL=200F 


-LSL=0067 


LSL=0067 


‘LSL=FFFF 


LSL=FFFF 
LSL=FFF8 


Figure 9: Output from BROWSE.C 


for (i=0; i<OxFFFF: i++) 





if (lar(i) && (i & 3) 
printf(“%04X PL=%02X\n”, i, i & 3); 


Figure 10: Are any selectors not 
at Ring O? 





Figure 12: The GDTR represented 


in C 
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typedef struct { 


unsigned 


} GDTR; 


limit, lo; 
unsigned char hi, reserved; 


the loop in Figure 10 represents the 
query, “Are any segments not at Ring 
0?”. Under IC, this produces no output: 
Everything is running at the most privi- 
leged protection level. But in OS/2, most 
of an application program’s selectors 
would be displayed by this loop. This 
is one of the differences between DOS/ 
16M and a full-blown protected-mode 
operating system such as OS/2. Be- 


~ cause DOS/10M is just a shell to sup- 


port one program at a time in protected 
mode, Rational Systems chose not to 
establish different protection levels. 
Along the same lines, the selectors 
you'll use in IC or in DOS/10M actually 
refer not to your program’s LDT, but 
to the GDT. Because there is only one 
program running, the distinction be- 
tween GDT and LDT, while crucial in 
a multitasking operating system such 
as OS/2, is fairly artificial in the “one 
program at a time” world of DOS/16M. 
On the other hand, another DOS 
extender, Eclipse Computer Solution’s 
OS/286, while sharing many of the same 
goals as DOS/16M, makes a sharper 
distinction between the kernel (the OS/ 


// for all possible selectors 
// if a valid selector 
// print selector 





for (i=0; i<OXFFFF; i++) 
if (lar(i) && (i == D16Abs Address © 
(MK_FP(i,0)) >> 4)) | 
printf(“%04X ”, i); 





Figure 11: Are any selectors 


transparent? 


#GDTRg; 
# sgdt(&g) 
#9 
struct at 2FiC { 


limit = 65528 (OxFFF8); 
lo = 16 (0x10); 

hi = ‘\020’ (0x10); 
reserved = '\0’;} 





Figure 13: Finding the location and 


size of the GDT 


286 DOS extender itself) and the pro- 
gram supported by the DOS extender. 
OS/286 programs run at Ring 3, while 
OS/286 itself runs at Ring 0. This just 
shows that there are few fixed rules 
about how a DOS extender must be 
organized. Protected mode allows for 
a wide variety of styles in operating 
environments. 

IC requires a large GDT partially to 
support many “transparent” selectors. 
For example, selector 0x40 has a physi- 
cal base address of 0x400, correspond- 
ing to the BIOS data area. Using the 
same code from PROTMODE.ASM, it 
is trivial to form the query, “Which 
selectors are transparent?” (Figure 11.) 


Examining the Protected-Mode 
Descriptor Tables 

We have already used an indirect 
method to examine the DOS/16M mem- 
ory map: Loop over all possible selec- 
tors and see if they’re legal. We can 
also directly examine the GDT, IDT, 
and LDT. 

PROTMODE.ASM contains a func- 
tional interface to the SGDT instruc- 
tion. SGDT expects a pointer to 6 bytes 
of storage (a FWORD PTR), into which 
it copies the contents of the CPU’s GDT 
register (GDTR). The GDTR holds the 
24-bit physical base address and 16-bit 
limit of the GDT, corresponding to the 
C structure in Figure 12. (Note that this, 
like most structures in this article, re- 
quires byte alignment; in JC, _struct 
_alignment = 1; in batch compilers 
such as Microsoft C, use #pragma pack 
(1).) This structure, along with sgdt( ), 
is used in Figure 13 to get the physical 
base address (0x100010) and limit 
(OXFFF8) of the GDT. 

Now we need to map this into our 
address space. A protected-mode de- 
scriptor table is an array of 8-byte seg- 
ment descriptors. Each descriptor con- 
tains the 24-bit physical base address 
and 16-bit limit for the segment, as 
well as an access-rights byte. There is 
also a 2-byte field used in 32-bit pro- 
tected mode on the 386. All this can 
be expressed in C, as shown in Figure 
14. After typing or loading this struc- 
ture definition into IC, we can create a 
pointer to the GDT (Figure 15). 

Now that we have a pointer to the 
GDT, let’s make it read-only to make 
sure we dont mess anything up 
(though, if you were working in a pro- 
tected-mode environment that didn’t 
have convenient functions for chang- 
ing selector attributes, you might actu- 
ally want to write to the GDT!): 


# D16SegProtect(gdt, 1); 


If bit 3 of a selector indicates that it 
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Don’t 
take our 


word for it, 
take theirs... 


“Do you know what the underground bargain C compiler of this year is? It’s 
the Mix Power C compiler. For under $25 with shipping, it is one heck of a 
good compiler.”’ 


Joe Bob's Texas 
ii Cow Chip Trail 
Fort Yorth TX 7544? 


Victor Schneider 
Dr. Dobb’s Journal, June 88 (Letter to the editor) 


‘Overall, Power C’s performance is remarkable for the price. Quite 
compatible with the Microsoft C and Turbo C ‘‘standards’’, Power C is a 
heavyweight contender in the educational, hobbyist, and perhaps even the 
professional market — at a bantamweight price.’ 


Stephen Davis 
PC Magazine, September 13, 88 (Review) 


‘Power C is an unbelievable product for $19.95, and is very competitive with 
Turbo C, Microsoft C, and Microsoft's new Quick C in both features and 
performance. It is excellent for the beginner who wants to learn C, or for the 
experienced programmer who wants to develop professional applications. The 
manual alone is worth the price of this package, and the generous library 
source code and assembler offer adds to the value of it. If you have any 
desire to program in C, or want a more powerful C compiler, get a copy of 
Power C!’’ 


Michael Cortese 
Computer Shopper, August 88 (Review) 


“The Ctrace debugger is where Mix really shines. It is magnificent. It’s not 

only better than the stripped down debugger Microsoft includes with Quick C, 
it’s better than the full debugger Microsoft provides with its high-end 
compiler (Codeview).’’ 


David Weinberger 
Computer Shopper, November 88 (Review) 
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(continued from page 72) 

belongs to the GDT, then the top 13 
bits of the selector can be used as an 
index into the GDT. Take the example 
of the GDT pointer itself. In Figure 10, 
we locate our new descriptor for the 
GDT within the GDT. (Got it?) 

Figure 16 confirms what we already 
know about the GDT: Its physical base 
address is 0x100010 and its limit is 
OxFFF7. We could now dispense with 
D16SegAbsolute( )and D16SegLimit( ), 
and write portable protected-mode 
code. 

To get a pointer to the GDT gener- 
ally requires that you use some special 
facility within your protected-mode en- 
vironment. We used D10SegAbsolute( ) 
here, which obviously won't work out- 
side DOS/16M. However, once you do 
have a pointer to the GDT, you can 
write completely portable protected- 
mode code. For example, I will snarf a 
lot of this code for a forthcoming DD/J 
article that features a GDT browser for 
OS/2. 

What about the “access rights” value 
that the CPU in protected mode uses 
to ensure proper use of selector Ox0C08? 
We can use the C bitfield in Figure 17 


to display the individual fields that make 
up the access-rights value 0x91. The C 
bit field structure is wonderfully non- 
portable, so if using the structure in 
Figure 17, you should check your com- 
piler’s ordering of bit fields and make 
sure the stucture is byte aligned. 

While DOS/16M (and, consequently, 
IC) doesn’t make much use of the LDT, 
this table is crucial in other protected- 
mode environments. Getting the LDT 
selector is simple: 


DESCRIPTOR far *ldt; 
Idt = MK_FP(sldtO, 0); 


If this pointer is not valid within your 
address space (/verr(sldt( ))), you can 
instead look up your LDT’s descriptor 
within the GDT: 


edt[sldt( ) >> 3] 


and then map the absolute address you 
find there into your address space. 
Now that we have these structures, 
we can write a function, sel(), to dis- 
play selector attributes. Note that in 
Listing Four, page 120, (SEL.C) con- 
tains no references to DOS/16M. sel() 
can be used to examine the selector for 
any pointer, such as se/(_’s own func- 


a H physical base ad 
;  ffseeACCESS_R 
: Mn for 386 (32-bit) 


_ _ address 0C08:00 





Figure 15: Mapping the GDT into our - 


address space 


selector within the GDT 


: ines segment been accessed? 
_ Hit data 1=write; if code 1=read 
_ // expansion direction 
#0 =data, 1 = code 

//0 =system descriptor 
_ // protection level: 0..3 

_ His segment in memory? 


EP. SEG(gdt) >>3].access) 


___ Hits been used 
;  # its read-only 
‘fits not a stack 
Hits data 
_//it's nota system descriptor . 





Figure 17: The protected-mode access-rights byte in C 
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Figure 16: Finding the GDT 


tion pointer. The attributes display in- 
dicates that this is readable code run- 
ning at protection level zero: 


# sel(sel) 
SEL=0A68 ADDR=472BB0 
LIMIT=43FF ACCESS=0Oar-c-p 


All these data structures are described 
in the Intel literature on 286 and 386 
protected mode. Seeing them come to 
life in IC, though, is a great aid to 
understanding protected mode. 

One of the tricks of protected-mode 
programming is to acquire an in-depth 
knowledge of these data structures and 
then, when programming, to forget 
about them. The operating environ- 
ment takes care of maintaining the GDT, 
the descriptors within the GDT, and 
the access-rights bytes within the de- 
scriptors. The CPU will take care of 
using these data structures to maintain 
the integrity of the system. You’re bet- 
ter off not thinking too closely about 
them, but it does seem to help to have 
been familiar with them at some point 
or other. Having an interactive envi- 
ronment like IC is a great aid to gaining 
this familiarity. 


Product Information 


Instant-C 
| Rational Systems Inc. 
_ 220 N. Main St. 
_ Natick, MA 01760 
508- 653- 6006 


Requires DOS 2.0 or above 
an 80286 or 80386 CPU 
and at least 1 Mbyte of memory. 
- Works with medium and 
_ large memory models. 
_ Price: $795 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings (lower- 
case) at the log-in prompt. 


DDJ 
(Listings begin on page 120.) 
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Circle Reader Service No. 7. 
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he C-scape™ Interface 

Management System frees C 
programmers from the tedium of 
coding windows, menus, data 
validation, help, and text editing 
functions. 


Moreover, C-scape is a joy to use. With 
C-scape’s object-oriented design, you'll 
build more functional, more flexible, 
more portable, and more unique 
applications—and you'll have more fun 
doing it. 


The industry standout. Many 
thousands of programmers have quit 
home-grown libraries and cumbersome, 
inflexible products for the pleasure of 
C-scape. The press agrees: ‘‘C-scape is by 
far the best ... a joy to use,” wrote IEEE 
Computer. PC Magazine chose C-scape 
to produce its Laboratory Benchmark 
Series 5.0 software because 
C-scape offers mouse 
support. Moreover, C-scape 
simultaneously combines 
text and graphics. And because C-scape 
makes it easy to create your own custom 
routines, major companies have selected 
C-scape as a Standard for software 
development. 


C-scape is built around an open 
architecture, so you can use it with data 
base management or other C libraries. 


Oakland Group, Inc. 675 Massachusetts Ave., Cambridge, MA 02139 USA. 
(02)88 72 49; France (1)46 09 28 28; Germany/Austria/Switzerland (49)07127/5244; Norway (02)44 88 55; Swed 
Inc. MS-DOS and XENIX are trademarks of Microsoft Corp. OS/2 is a trademark of International Business 
k of Hercules Computer Technology, Inc. Prices and terms subject to change. 


Look & Feel are trademarks of Oakland Group, 
Machines Corp. UNIX is a trademark of AT&T. HERCULES is a trademar 
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C-scape Features 


Graphics. Combine high-resolution color graphics 
with text or menus. 


Object-oriented. Add features and create 
reusable code modules. 


Mouse. Use any standard mouse for fast screen 
control. 


Portability. Write hardware independent code. 
Supports DOS, 0S/2, UNIX, others. Autodetects 
Hercules, CGA, EGA, VGA. 


Text editing. Create a full-featured text editor or 
pop-up note pad. 


Field flexibility. Create masked, protected and 
marked fields with complete data validation. Use 
time, date, money, pop-up list, and many more 
functions, or create your own. 


Windows. Choose from pop-up, tiled, bordered 
and exploding windows, with size and numbers 
limited only by RAM. 


Menus. Choose from pop-up, pull-down, 123-style, 
or slug menus, or create your own. 


Context-sensitive help. Link help messages to 
individual screens or fields. Cross reference 
messages to create hypertext-like help. 


Screen design. Build any type of screen or form 
with the Look and Feel™ Screen Designer, then 
automatically convert it to C. 


Screen flexibility. Call screens from files at 
run time or link them in. 
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And to port from MS-DOS or OS/2 to 
UNIX, just recompile. 


Trial with a smile. C-scape is not 
only the most sophisticated, flexible and 
powerful interface system available, it’s 
also the most friendly—and easiest to 
use. Try C-scape on a 80-day trial. It 
comes with a thorough manual, demo 
disk, sample programs with 
source code, an optional 
screen designer and code 
generator, access to a 
24-hour bulletin board, and toll-free 
support. No royalties, runtime licenses, or 
runtime modules. After you register, you 
get complete library source code at no 
extra cost. 


Call 800-233-3733 (617-491-7311 
in Mass.) to try C-scape now. After the 


joy of C-scape, programming will never be 
the same. 


MS-DOS, 0S/2:$399, library only; with 
Look & Feel, $499. UNIX, XENIX, Apollo, 
Sun, Stratus, others please call. 
Mastercard and Visa accepted. 


FAX: 617-868-4440; Washington 206-746-8767; Benelux (02159)46814; Denmark 
en (013)124780; U.K. (0992)500919. C-scape and 





malltalk/V.© 
Designed to blow the 
doors off the hybrid languages 
of the programming world. 
Smalltalk/V does prototyp- 
ing the same way Shelby 
prototyped the Cobra... 
using a blend of technical 


expertise and seat-of-the- 








“Anyone can build a prototype by the 


by the seat of your pants.” 


pants savvy that’s startlingly sophis- 
ticated. First you doodle, design, 


dream. Then you explore the pos- 


sibilities and begin to assemble the 
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prototype. You test. You tinker. You 
change. And you keep on changing 
and test-driving and refining until 
the prototype is just the way it was 
meant to be. With no 


compromises... of 








any kind. But the 
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thing is this proto- 





type is not just a pro- 






totype. It runs, it 






races, 1t performs like 


the real application. 
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application. And you 


— CARROLL SHELBY 
Creator of the legendary 
Shelby Cobra 


achieve this feat without once hav- 
ing to go through the old “crash 
and burn” kind of programming so 
common with languages born in 
the age of mainframes. 
COMPLEXITY CONTROL FOR 
THE 1990s AND BEYOND. 

The concept behind an object-ori- 
ented programming system is rela- 
tively simple. You build more 
complex objects out of simpler 
ones. Much as you can build com- 
plicated designs with a Lego set. 
With Smalltalk/V a programmer 


can write a piece of code and then 








book. But you create a legend 





reuse it again and again. The “in- 
heritance” factor lets you create, 
enhance and refine your applica- 
tions without constantly having to 
re-invent the wheel. Or, as one 


“With 


programmer put it, 


tures, too. The Class 
Hierarchy Browser, 
Inspector, Debugger, 
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prototyping/exploratory program- 
ming? 

Are many of your problems difficult 
to define? 


Are external factors constantly 
changing? 


Do you like to make changes from 


insights gathered along the way? 


Do you feel torn between efficiency 
and conceptual clarity? 


Are you developing for Multi- 
Finder or Presentation Manager? 


Are you tired of needless crashing? 
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Has your creativity been intimi- 
dated by the rigorous demands of 
the process? 
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hot programming write a fugue without 
tool for either your 
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You'll find that 

Smalltalk/V is souped piano.” 

up with lots of other 

high performance fea~ Cops! LOOK WHAT 


THE WORLD IS 
COMING TO. 


Class Browser, - 

Method Browser and The software of the 
Walkback window 
are all standard future, OOP promises 
equipment. 


not only to boost pro- 
grammer productivity but also put 
powerful computing capabilities in 
the hands of non-techies.” 


— Business Week 
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“Traditional computer languages 
and interfaces with their structure 
and detail, have appealed to those 
of us who are left-brained (more 
logical and analytical). On the 
other hand, object-oriented lan- 
guages and interfaces, with their 
emphasis on perception and the 
whole picture, invite those of us 
who are right- 
brained (more artistic 
and intuitive) to join 
the computer revolu- 
tion as well.” 
—Byte 
“Object-oriented programming is 
the key to the next great transition 
in personal computing.” 


—NY Times 


AT THESE PRICES IT’S 
CERTAINLY NOT MONEY 
TTHAT’S HOLDING YOU BACK. 
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Smalltalk/V 286 
(286 or 386 1.5 MB RAM) 


Smalltalk/V Mac 
(Plus, SE, II 1.5 MB RAM) 


$99.95 


199.95 


199.95 


Smalltalk/V. A product of Digitalk 
Inc., 9841 Airport Blvd., Los Angeles, 
CA 90045. For information or to find 


a dealer near you call: 
1-800-922-8255 


1-213-645-1082 
CompuServe 71361,1636 


MultiFinder is a trademark of Apple Computer. 
Smalltalk/V is a registered trademark of Digitalk Inc. 
Prices subject to change without notice. 
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ast month, in Part I, we saw that 
with a few tricks such as tiling a 
huge model, and the use of FAR 
pointers we could address up to 
64 terabytes. However, I hope 
to convince you by the end of this 
article that the only use for FAR point- 
ers in 80386 code is in operating sys- 
tem kernels. As a starting point, let’s 
take a look at ports and interrupts. 

The 80386 supports ports and inter- 
rupts in the same manner as the 8086, 
with the exception that interrupt vec- 
tors are only stored in the first 1024 
bytes in real mode, while port reads 
and writes can result in exceptions if 
the user’s code does not have the re- 
quired protection level. From a practi- 
cal standpoint, what this means in 32- 
bit protected mode is that the proces- 
sor looks into the interrupt descriptor 
table (DT) instead of the first kilobyte 
anytime an interrupt happens. 

These two features make it possible 
for an operating system or environ- 
ment to control what happens when a 
protected-mode program hits either an 
interrupt or attempts to write a port. 
This type of facility makes it possible to 
run DOS applications in “compatibility 
boxes” that simulate MS-DOS. In the 
case of DOS extenders, what happens 
during I/O operations is that port reads 


Stephen is the vice president of Micro- 
Way's R&D. He is well known in the 
field for his PC numeric and HF chemi- 
cal laser contributions. You can reach 
him at MicroWay Inc., P.O. Box 79, 
Kingston, MA 02364. 
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Accessing Hardware from 80386 
Protected Mode Part I 


A 4-gigabyte memory model and features that 
control 80356 paging make FAR pointers obsolete 


Stephen Fried 


and writes are passed through, while 
interrupts get translated into MS-DOS 
compatible operations. These MS-DOS 
compatible operations are performed by 
DOS itself, which is activated by return- 
ing to real mode and examining a buffer 
area in the first 640K that has been left 
behind by the protected-mode portion 
of the DOS extender. 


Interrupts 
To place interrupts in context, let’s ex- 
amine how to write a short sequence 
that writes to the system diskette using 
the ROM BIOS INT 13H entry point. 
Digging out an eight-year-old copy of 
the IBM technical user’s manual, we 
examine the parameters that have to 
be passed to the routine in the registers 
al, ah, cl, ch, dl, dh, and es:bx. Figure 
1 shows the equivalent 8086 and 80386 
versions of a section of a program that 
writes eight sectors at a time to a disk- 
ette. 

Of course, if we were writing this 


ax,ds 
eS,ax 
bx, buffer 
al,8 


ah,3 
cl,8 
ch,39 
dl,2 
dh, 1 
13H 


ax,ds 
eS,ax 

ebx, buffer 
al,8 

ah,3 

cl,8 

ch,39 

dl,2 

dh, 1 

13H 





code in C, we would have used the 
NDP C version of int86 or int386, or 
the register-aliased variables introduced 
later, in conjunction with an asm state- 
ment. We chose the diskette routine as 
an example because it requires that a 
pointer to a buffer is passed to the 
ROM BIOS. Examining the code, we 
discover that both pieces of code are 
identical, except for the buffer point- 
ers. In the protected-mode example, 
we use the pointer es:ebx instead of 
es:bx. To understand how the interface 
becomes 32-bit knowledgeable, it is nec- 
essary to examine what happens when 
an int 15H executes in protected mode. 

The DOS extender has set up the 
IDT, so that when an int 13H occurs, 
the DOS extender gets interrupted and 
takes over. The extender first looks at 
the interrupt number, and if it employs 
a pointer of the type es:bx, it enters a 
special mode in which it moves the 
data pointed to by es-ebx into a buffer 
area it has reserved for itself in real 


; set up es:bx 

;es =ds 

; point at buffer 

; # of sectors 

; write to diskette 

; sector # 1 

; track number 39 
‘drive #2 

‘head #1 

: call the ROM BIOS 


Figure 1: 8086 and 80386 versions of a program fragment that write eight 


sectors at a time to a diskette 
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memory. This makes it possible to lo- 
cate our protected-mode track buffer 
anywhere in the 32-bit segment being 
addressed by ebx, and to use buffers 
larger than 64K. The extender then cop- 
ies the first 64K from the protected 
buffer into the real buffer, sets es:bx so 
that it points at the real buffer, restores 
all the other registers so that they were 
the same as when the interrupt was 


Another benefit of this 
technique is that it 
works up to 20 percent 
faster in an 80486 
system than techniques 
that use intrasegment 
methods 


invoked in protected mode, enters real 
mode and, finally, issues an int 13H to 
invoke the ROM BIOS diskette routine. 

This technique works fine for buff- 
ers that are up to 64K in size. For buff- 
ers larger than 64K, the extender is 
forced to make multiple transfers. As a 
result, there is litthe benefit in using 
buffers larger than 64K when calling 
either a ROM BIOS or MS-DOS entry 
point from protected mode. In the pro- 
cess of benchmarking the NDP C and 
Fortran I/O run-time systems, we dis- 
covered that MS-DOS is the primary 
I/O bottleneck, and that a buffer size 
of 8-Kbytes gave excellent performance. 


FAR Pointers 

Two years ago, when we introduced 
NDP Fortran, the block move technique 
just described was the main technique 
used for accessing real mode memory 
from protected mode. We made this 
facility available to users with functions 





char *mapdev(); 

main () 

{ 
int jcount = 0; 
char *scr ptr; 


while (jcount < 4096) 









/* map the screen into the data segment */ 
scr ptr = mapdev(0xb8000, 4096) ; 


*(scr ptr + (jcount++)) = 0x20; /* write space*/ 
*(scr ptr + (jcountt+)) = 





whose arguments included the selector 
of the destination segment. This worked 
fine, just as long as the memory being 
accessed was recognized and had a 
selector set up for it by Phar Lap. How- 
ever, as our users became more sophis- 
ticated, this technique started to break 
down. More and more users wanted to 
access new memory-mapped gadgets 
no one had ever heard of before. 

At about the same time, a number 
of people started talking about adopt- 
ing FAR pointers to the 80386, but when 
we examined the problem we discov- 
ered that adding more segments was 
not a solution because it did not ad- 
dress the problem of how to create 
new segments to map in new devices. 

About this time, Phar Lap added some 
calls that made it possible to control 
system paging. With these calls in hand, 
we developed a routine that enabled 
us to extend the size of a user’s data 
segment while simultaneously mapping 
this new extension to any arbitrary, 
physical address. 

To gain some perspective, imagine 
you have just bought a digitizer which 
is memory mapped and has a resolu- 
tion of 1000 x 1000 pixels (that is, it 
takes up a megabyte of physical ad- 
dress space in your 386 AT’s I/O chan- 
nel). The ideal way to obtain access to 
this device is to pass its size and physi- 
cal location to the operating system 
and to get back a 32-bit pointer to the 
device in the address space of the pro- 
gram. This is exactly what mapdev( ) 
does. The pointer that mapdev() re- 
turns is an ordinary 32-bit pointer to a 
piece of your program’s data segment 
that was just magically created. It doesn’t 
require the use of intrasegment trans- 
fers or FAR pointers, and you don't 
have to worry about using a block move 
to access the device or memory that 
was mapped in. 

Another benefit of this technique is 
that it works up to 20 percent faster in 
an 80486 system than techniques that 
use intrasegment methods. The reason 
is that the 80486 has a preferred seg- 
ment register, ds, for accessing data, 
and all NDP data accesses (by default) 













Ox7c; /* and attribute*/ 





Example 1: Using mapdev( ) to map the screen into the protected data 


segment 
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Quarterdeck can provide everything you need to put DESQview capabilities into your applications. 


A Complete Interactive Toolkit 
—Including a Debugger 


API Reference Manual The key to the power of the 
DESQview API, this manual contains all you need to 
know to write Assembly Language programs that take 


full advantage of DESQview’s capa- 
bilities. And there’s an ‘include’ file 
with symbols and macros to aid you 
in development. 


API Clipper Library Add new power 
to client-server database applications. 
Define tasks that monitor or control 
any other application; run reports, 
sorts or numerical analyses in the fore- 
ound or background; create custom 


Designer make implementing the interfaces with control over keyboard, 
DESQview API a snap. 


mouse and window functions. And 
it’s all easy to accomplish because you can treat the 
entire set of over 300 object-oriented API functions as 
prewritten UDFs. 
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API Debugger 


Pascal 4.0 and 5.0 compilers and Microsoft Quick Pascal. 
Included are the API Reference Manual, source code for 
the library and example programs. 


API C Library You get C language interfaces for the 
entire set of API functions. It supports the Lattice” C, 
Metaware™ C, Watcom C, Zortech C, C++, Microsoft® C, 
and Turbo C compilers for all memory models. Included 
with the C Library package is the API Reference Manual 
and source code for the library. 


API Debugger The DESQview API Debugger is an 
interactive tool enabling the API programmer to trace 
and single step through API calls from several concur- 
rently running DESQview-specific programs. Trace 
information is reported symbolically along with the pro- 
gram counterregisters, and stack at the time of the call. 
Trace conditions can be set to report only calls of interest. 


API Panel Designer This interactive tool helps you 
design windows, menus, help screens, error messages, 
and forms. It includes an editor that lets you build an 
image of your panel using simple commands to enter, 
edit, copy, and move text, as well as draw 


"With the DESQuiew API, you can 
create programs with abilities far beyond 
those of Clipper alone... obviously, the uses 
are limited by your imagination” 

—Data Based Advisor, December 1989 

You get the API Reference Manual 
and source code for the library with the 
Clipper Library package. 

API dBASE Library All API functions 
are available within dBASE Ili and IV. 
We include source code for the library, 
the API Reference Manual and example 
programs. 


Some of the applications 
under development right 
now using DESQview 
API Tools: CAD, medical 
systems, insurance, 3270 
network management, 


mainframe communica- 
tions, real estate manage- 
ment, typesetting, point 
of sale, education, stock 
and commodity trading 
and online voting. 





lines and boxes. You can then define the 
characteristics of the window that will 
contain the panel: its position, size, and 
title. Finally, you can specify the locations 
and types of fields in the panel. 


The Panel Designer automatically 
generates all the DESQview API data 
streams necessary to display and take 
input from your panel. These data streams 
may be grouped into panel libraries and 
stored on disk or as part of your program. 


More Tools are Coming If you'd like to 
know all the things we're up to in the API 


API Basic Library The Basic library provides interfaces 
for the entire set of API functions. Included are the API 
Reference Manual, source code for the library and 
example programs. 

API Pascal Library The Pascal library provides inter- 
faces for all API functions. It supports Borland Turbo 


Toolkit, plan to attend our API Conference this Summer. 
Call or write for details. 


But for now, we can tell you that we are committed 
to adding tools as needed by our users. In the works, we 
have many new, exciting tools that will keep DESQview 
API users at the forefront of interface development. 
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(continued from page 80) 
are made by using ds. 

The choice of segment registers be- 
comes a crucial issue when it comes 
to Weitek. The default technique used 
by NDP compilers for accessing Weitek 
is to pass the selector 3C into the seg- 
ment register fs and to access Weitek 
through /s. Our research to date indi- 
cates that mapping Weitek, and every- 
thing else into ds, pays off with big 
dividends. Altogether, it is possible to 
make a 15-50 percent improvement 
in 486/Weitek speed by correctly align- 
ing and mapping 486 code. 

The 80486 and mapdev( ) put the 
final nails in the FAR pointer coffin. 
The next question is, “How do you 
port a 16-bit C application that uses 
FAR pointers to 386 protected mode?” 
FAR pointers are used in two different 
ways by 16-bit C programs: To identify 
20-bit pointers when the program is 
using 16-bit pointers by default, and 
to access physical locations in the 20- 
bit 8086 address space. The first use, 
increasing pointer size, does not have 
a corresponding feature in the small 
memory model employed by any of 
the operating systems currently in use. 
As a result, this type of FAR pointer 
gets translated by the statement 
define FAR 

This statement converts occurrences 
of FAR into a null string. When FAR 
pointers are used to access physical 
devices in the 20-bit address space of 
the 8086, the easiest solution is to use 
mapdev( ) to map the device into the 
protected data segment and use the 
resulting pointer instead. For instance, 
consider the program in Example 1 to 
clear the screen. 

For chores such as addressing the 
screen, note that mapdev( ) is a much 
better solution than the block move 
we introduced earlier. It makes it pos- 
sible to read or write any region of 
physical memory by using 32-bit point- 
ers created by the operating system, 
without invoking special functions or 
creating buffers that have to be moved 
in bulk. 

At this point, you should have a good 
feel for what memory looks like. Figure 
2 shows a map of a system running in 
protected mode under a DOS extender 
without virtual memory running (the 
virtual map is different). 

The lowest megabyte looks just like 
any other real map with the exception 
that an area of the map between the 
DOS extender and its I/O buffer have 
been made available for protected- 
mode code and data if paging is en- 
abled (the default). To simplify the map, 
we have drawn it with paging disabled, 
which places the start of the protected 
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code and data segment at the bottom 
of the first megabyte. Note that the 
code and data of the protected-mode 
program itself looks very similar to an 
ordinary small model program with the 
exception that this segment can grow 
on the top. Just above the code and 
data is an area identified for expansion 
of the address space using the mapdev 
function, which also causes selectors 
OCH and 14H to grow. Finally, at the 
top of the map we find the Weitek 
segment. 


Register-Aliased Variables 

At this point, we have just about intro- 
duced all the interface tricks except 
those that let programs running in real 
mode access protected-mode programs, 
and vice versa. These types of accesses 
involve writing TSRs and passing data 
back and forth between real and pro- 
tected mode, using real mode buffers. 
Phar Lap does a good job of explaining 
how to write these types of interfaces. 
Because of popular demand, we have 
written interfaces between the NDP run- 
time environment and Media Cybernet- 
ics’ Halo and Novell’s BTrieve. How- 
ever, we have still not introduced the 
piece de resistance of interface tricks — 
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Figure 2: Memory map of a system running in protected mode under a DOS 
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register-aliased variables. 

Functions such as int86, int380, outp, 
outpw, inp, and inpw, are fine for pro- 
totyping I/O routines that interface de- 
vices directly but, in the end, any de- 
veloper that is worth their salt will 
choose to rewrite these routines in as- 
sembly language. The reason is clear: 
Functions such as intS6 involve the 
use of bulky structures and have to 
pass through as many as 40 lines of 
code every time they are called. 

In searching for a technique to speed 
up this operation, we chose to make 
two simple extensions to the language: 


1. Make it possible to specify which 
register a register variable is stored 
in. 

2. Notify the asm statement about which 
variables were read and written on 
each “call” to asm. 


These two tricks make it possible to 
declare 8-, 16- and 32-bit C variables 
that are stored in particular 80386 regis- 
ters. To invoke an interrupt by using 
register-aliased variables, use C assign- 
ments to set up the registers and then 
kick off the function with an asm state- 
ment that contains the interrupt being 
used. 
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extender without virtual memory running 
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As we will see, what results is pure 
poetry and, frequently, much _ better 
code than can be produced by an ex- 
pert assembly language programmer. 
A person writing an assembly routine 
does not know the state of all the regis- 
ters (that is, which are free when a 
procedure is called) when the routine 
they are writing is called. Asa result, 
they must save and restore all registers 
used (something the compiler does not 
have to do as the compiler has a com- 
plete knowledge, at all points in the 
program, of the machine for which it 
is generating code). In addition, the 
assembly routine must be called, possi- 
bly getting parameters off a stack, while 
the register-aliased routine appears in- 
line. And, as you know, the fastest call 
is no call at all. 

The ideal use of register-aliased vari- 
ables is in advanced graphics adapter 
drivers in which register ports must be 
accessed inline and in sequence with 
reads and writes to the screen buffer. 
The difference between inline code and 
prototypes that use C to access the 
ports is very noticeable. 


A Sound Generator 

The example presented shortly demon- 
strates the principles and provides a 
sound ) function that I will use as the 


basis for a Basic-like music interpreter. 
The program in Listing One (page 122) 
contains a general-purpose sound rou- 
tine called note( ) that can be called 
with a pitch and duration. The pro- 
gram works by controlling the 8255 
timer on the system motherboard and 
is similar to the program in the IBM-PC 
ROM BIOS. The traditional Microsoft 
C version of the program demonstrates 
the principles we have developed ear- 
lier, except for mapdevt ). 

The register-aliased version of the 
same program is shown in Listing Two 
(page 122). Note that we have defined 
a couple of macros at the head which 
convert outp() from a function to a 
macro, and that we have created a new 
form of inp( ) that is also a macro. The 
benefit of these macros (over the func- 
tions) is that they are almost identical 
in form to those used by MS C, take 
up much less space than function calls 
in the generated code, and execute 
inline without the costly overhead of a 
call and return. 

In examining the code, note that the 
source is virtually identical to Listing 
One, and that the only source lines 
that have in fact changed are those that 
invoke the two interrupts and port reads. 
The technique used to force a variable 
into a particular register is a simple 


extension of the reg keyword, followed 
by the register to be used. To use an 
8- or 16-bit section of a 32-bit register, 
use the 32-bit register name, followed 
by short or char, using unsigned as 
necessary. Variables that have the same 
name as the register in which they re- 
side are called “register aliased.”’ 

It is possible, however, to overload 
variables, and in this demonstration I 
have deliberately overloaded eax, de- 
claring three variables (a/, x, and y) to 
be stored in al, another in ax, and 
another in ah. (Note that ah is speci- 
fied in a slightly different manner.) None 
of these five eax components are ac- 
tive at the same time. If a conflict exists, 
the compiler spills temporaries to the 
stack, thus signaling us to change our 
usage, if possible. 

Listing Three (page 122) is the assem- 
bly language produced by the com- 
piler for the procedure note( ). The code 
demonstrates the level of integration 
produced by the use of register-aliased 
variables. The register allocation sum- 
mary at the bottom shows that all of the 
variables in the program, including the 
register-aliased variables, are allocated 
to registers. In addition, notice that the 
register-coloring algorithm used by the 
allocator placed six variables in eax 
(this includes the use of its compo- 
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PROGRAMMER’S WORKBENCH 


a 


nents al, ah, and ax), in addition to 
using eax as an accumulator in three 
other locations. The inline assembly is 
integrated with the surrounding C code 
without a single push or pop, and does 
not require the use of structures or calls 
and returns to handle interrupts and 
port I/O. 


a. . g[#,+,-,.,n] the notes with optional extenders 
o..On octave,n=0..6 

> one octave 
< 

. 


go down an octave 
set note lengthn=1.. 64 
rests of lengthn=1..64 
set tempo n= 32. . 255 


-La 
p,Pr,Rn 
t,Tn 


Table 1: The syntax supported by the 
C version of the PLAY function 





In particular, examine the block that 
starts at label L13. This block is the one 
that polls the timer until it is time to 
turn off the note. The block starts off 
with ax being used as an argument for 
the timer service routine 01AH; the eax 
register is then used by the compiler 
as a temporary accumulator, which is 
followed by al being used to service 
both input and output operations. Of 
course, ecx, edx, esi, and edi (or their 
components) are also used throughout 
the 12 lines of code. In fact, the only 
register that does not find its way into 
this sequence is ebx. 

The resulting code is about one- 
third the size of a similar routine that 
uses calls. However, it executes sub- 
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stantially faster than the mere size dif- 
ference would indicate, as most of the 
instructions are self-contained in the 
processor's registers. The issue of keep- 
ing things in registers becomes even 
more important with the 80486 which, 
even though it has a built-in cache, has 
been RISCed to execute many register- 
register instructions in a single cycle. 
Taking advantage of these single cycle 
operations becomes a key issue with 
generating 80486 code. In addition, fu- 
ture generations of 486 systems will 
probably increase the importance of 
register allocation as improved proces- 
sor speeds (50 to 100 MHz) outstrip the 
ability of inexpensive DRAM memory 
to keep up with the CPU. 


Conclusion 

To wrap things up, Listing Four (page 
122) presents the play ) function. The 
program calls note( ), using a case state- 
ment to parse the note being played 
or the command being executed. The 
syntax chosen was that in the IBM 2.0 
Basic manual. The elements of the syn- 
tax supported are shown in Table 1. 

The command is only a partial im- 
plementation of the Basic version. Be- 
cause the current implementation of 
note( ) polls the timer, play() will not 
run in the background. If you plan to 
use this function as part of a game, I 
recommend that you turn the routine 
into a compiler that generates a list of 
pitches and durations that get fed to a 
TSR interpreter that uses the timer tick 
to control duration. 

One final problem is the fact that C 
does not support strings in strings. The 
addition of legato or staccato is left as 
a reader exercise. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings (lower- 
case) at the log-in prompt. 
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HYPERTEXT SYSTEM 


Listing One (Text begins on page 22.) 


1; {$V-} {S$F+} {$O+} { Written By: Rick Gessner, 1989. } 


21 

i Unit HyprText; 
oq AHaStee= | IWbeTEace pr See sea een eae Sabena een a == } 
51 


| PROCEDURE Help Editor (FileName: String); 
7; PROCEDURE Do help(FileName: String; GoPage,HomePage: Word); 





8, {------- }: implementation {q=s=s=s]ss2—S-s-S eRe ssas SS Sa SSS aS SassSe5 } 

1 Uses Crt; 
10; 
11: CONST HelpColor : Array[False..true] of Byte = 
12} ( Black*16+White, { for normal text} 
13) Magenta*16+Yellow); { for hot-link text. } 
14) NormalColor : Byte = Black*16+White; { draw screen info.} 
15: BoldColor : Byte = White*16+Black-Blink; { for select bar. } 
16: Header : String[50] = ’ HyperText System [1.0] ’; 
17; MaxLinesPerPage = 15; 
18. MaxLineWidth = 57; 
19; 
20: PGUP = ‘JT’ PGDN = 'Q'; UpArrow = 'H’; {Edit keys} 
21: DnArrow = 'P’; LArrow = 'K’'; RArrow = /M’; 
22: ESC = #27; HomeKey = 'G’; EndKey = '0'; 
23) RETURN = “%M; BkSpc = #8; NULL = #0; 
24: Tab = #9; F2 = '<'; DelKey = 'S’'; 
25: Type HelpRecord = Record {The main structure for our hypertext files} 
26: HelpLines : Array[1..MaxLinesPerPage] of String[100]; 
271 end; {String length MUST be > than MaxLineWidth to store hot-links! } 
28: Var HelpRec : HelpRecord; 
29; HelpFile : File of HelpRecord; 
30; Alt,Ctrl,CommandKey : Boolean; 
S1i. (Seer Sse ase ses = SSae aR SS Sage seas ne Sate eae eee eee SS eS Se seas } 
32; FUNCTION Make String(Ch : Char; Size : Integer) : String; 
33: Var S: string; 
34; Begin 
35: S[0] := Chr(Size); { Set length byte = SIZE. } 
36: FillChar(S[1],Size,Ch); { Fill the string with chr(CH). } 
371 Make String:= S; { and return the string as function} 
38: end; {Make String } { value. } 
BY (at Se esas er een SS SSS SSS ep Sa a SSS ee a os SSS SS SS aS5-5 } 


40: PROCEDURE Draw _Box(topx,topy,botx,boty: Byte; Color,Width: byte); 
41; Type BoxPos = (TopL, TopR, BotL, BotR, Top, Bot, LSide, RSide) ; 

42; Var Y Integer; 

43; Const Boxchar : Array[1..2,TopL..RSide] of char = 


44; (( '2",'2",'7@',*7Y',’D',’D’,'3’,'3’), {ASCII chars, single line box } 
45; ( ’I',';','H','<','M'’,'M’,':',':')); {ASCII chars, double line box } 
46, Begin 

47; TextAttr:=Color; 

48, If Not (Width in [1,2]) then Width:=1; { Sure width value is OK? } 

49; Gotoxy (Topx, TopY) ; { First, draw the top line of the box...} 

50: Write( BoxChar (Width, TopL]+Make String (BoxChar[width,top], 

51; BotX-TopX-1)+BoxChar (Width, TopR] ); 
52: For Y:=TopY+l to BotY-1 do 

53; Begin { Second, draw the middle lines of the box...} 
54; Gotoxy (Topx, Y); 

554 Write( BoxChar[Width, LSide], BoxChar [Width, RSide] :BotX-TopxX) ; 
56: end; 

571 GotoxyY (TopX, BotY); { Third, draw the bottom line of the box. } 

58, Write( BoxChar (Width, BotL]+Make String (BoxChar[width, top], BotX-Topx-1) + 
591 BoxChar [Width, BotR] ) 
60: end; {Draw Box} 

61) {-------------------------------------------------------------------- 


62: FUNCTION Read KeyBoard: Char; 
63; Const CtrlMask = $04; 


{Routine to get keystrokes from user} 


64} AltMask = $08; 

65, Var KBDFlag : Byte Absolute $0040:$0017; 

66; Begin 

67, Read _KeyBoard:=ReadKey; 

68: CommandKey :=((KBDFlag AND AltMask)<>0) or ((KBDFlag AND CtrlMask)<>0); 
69; ALT :=(KBDFlag AND AltMask)<>0; CTRL := (KBDFlag AND CtrlMask)<>0; 

70; If KeyPressed Then 

71; Begin 

72: Read Keyboard := ReadKey; {Just in case user pressed modified key} 
73: CommandKey := True; 

74, end; 

75: end; {Read Keyboard} 

1610 [-rrr rrr nnn nnn nnn nnn nnn nnn nnn $5555 5-2-5 ----------------- } 


77; PROCEDURE Show HelpLine (X,Y,StartBold,EndBold: Integer; Var Line: String); 


78; Var I,J: Integer; 





79) PROCEDURE Write Char(Ch: Char); 
80; Begin 
81; If Ord(Ch)>127 then Ch:=Chr(Ord(Ch)-128); {Clear high bit} 
82: If Ord(Ch)>27 then Write(Ch) else Inc(i); 
83) end; 
84; Begin 
85: TextAttr:=HelpColor [False]; 
86, Window (X,Y,59,Y); ClrEOL; Window(1,1,80,25); {Prepare for output} 
87, Gotoxy (X,Y); I:=1; 
88: While I<=Length(Line) do {Do each char in line} 
89; Begin 
90; TextAttr:=HelpColor[Ord(Line[i])>128]; Set proper color} 
91, If I in [StartBold..EndBold] then TextAttr:=BoldColor; 
92) Write Char(Line[i]); 
931 Ine. (i)4 
94, end; 
95) end; {Show helpline} 
96,0 {+9 9-99-2520 7-2-9252 ---5----------------------------------------- } 
97% PROCEDURE Show_Help Page(X,Y: Integer; Var HelpRec: HelpRecord); 
98) Var I: Integer; : 
99; Begin 
100; Window (X+1, Y+1,X+56, Y+MaxLinesPerPage+l) ; ClrScr; Window(1,1,80,25); 
101: For I:=1 to MaxLinesPerPage do 
102: Show_HelpLine(X,Y+I,0,0,HelpRec.HelpLines{I]); 
103: end; {Show help page} 
oe er epniaaaisner a nai up auiaiiehaattenaas eee ae 
105: FUNCTION Determine Actual Line Pos(Var Line: Str ng; LinePos: 
106: Integer): Integer; 
107; Var I,J: Integer; {Convert visual edit column to char. position, } 
108: Begin {by skipping over embedded hot links. } 
109: T:=0; J:=1; 
110: While (J<=Length(Line)) and (I<>LinePos) do 
111) Begin 





119; 
120; 
121; 





126: 
127: 
128: 
129; 





Inc(i) else Inc(j,2); 
Inc(j); 
end; 
Determine Actual Line Pos:=d; 
end; {Determine actual line pos} 


FUNCTION Link Count (Var Line: String): Integer; 
Var I,Count: Integer; { Returns 2*#nulls in line, used to convert } 
Begin { from actual byte pos. to visual byte pos., } 
Count :=0; { during data input. } 
For I:=1 to Length(Line) do 
If Line[i]=Null then Inc(Count,2); 
Link Count :=Count; 
end; {Link count} 


FUNCTION Input HelpPage(X,Y: Byte; Var AHelpRec: HelpRecord): Char; 


Var Ch : Char; { Main editing routine in this system. } 
PageNum : Byte; { It is really just a page-oriented line } 
I,J, { editor knows how to jump over 2-byte } 
LinePos, { hot-links. } 
RealLinePos, { If you add editing options, take } 
LineNum Integer; { the embedded hot-links into account! } 


PROCEDURE Delete Linked Char(Var Line: String; LinePos: Integer); 
Var I,J: Integer; 
Begin 

LinePos:=Pred(Determine Actual Line Pos(Line, LinePos) ); 

f Ord(Line[LinePos])>127 then {Were on a linked item} 

egin 

I:=LinePos; 

While ((Ord(Line[I-1])>127) and (I>1)) do Dec(i); 

J:=LinePos; {Next find end of link} 

While ((Ord(Line[J+1])>127) and (I<Length(Line))) do Inc(J); 

Delete(Line,LinePos, {Delete all of item + link if necc.} 
1+ (2*Ord(J=I1))); 


end; 
end; {Delete linked char} 
Begin 
Show Help Page(X,Y,AHelpRec); {Display this page } 


LinePos:=l; RealLinePos:=1; {Now do a little init stuff.} 
LineNum:=1; 
With AHelpRec do 
Repeat 
Show HelpLine (X, Y+LineNum, 0,0,HelpLines [LineNum]) ; 
Gotoxy (X+LinePos-1,Y+LineNum) ; 
Repeat Ch:=Read KeyBoard Until Ch <> Null; 
If CommandKey then 
Case Ch of 
a4 : If RealLinePos<=Length (HelpLines[LineNum]) then 
Begin { “Y = Delete to end of line. } 
If (RealLinePos=1) then HelpLines[{LineNum] :=’’ 
else 
Begin 
While HelpLines[LineNum, RealLinePos]<>Null do 
Delete (HelpLines[LineNum],RealLinePos,1); 
If HelpLines[LineNum, RealLinePos]=Null then 
Delete (HelpLines [LineNum] , RealLinePos+2, 255) 
end 
end; 
F2 : Begin { F2 = Add/Remove hot-link.} 
J:=RealLinePos; 
While (j>0) and (HelpLines[LineNum, j]<>’ ’) 
do Dec(j); 


{Now enter main edit loop...} 


Inc(}); 
If Ord(HelpLines[Linenum,j]) in [28..127] then 
Repeat {Now get a valid page # to jump to...} 
Gotoxy (3,24); Write(’Link Page: '); 
Readin (PageNum) ; 
Gotoxy (3,24); C1lrEOL; 
Until (PageNum>0) and (PageNum<256) ; 
While (HelpLines[LineNum,j]<>’ ‘') and 
(j<=Length (HelpLines[LineNum])) and 
(HelpLines[LineNum, j]<>Null) do 
Begin 
HelpLines [LineNum, j] :=Chr (Ord (HelpLines 
[LineNum, j]) +128); 
Inc(j); 
end; 
If Ord(HelpLines [LineNum, J-1] 
Delete (HelpLines[LineNum],J,2 
Insert (Null+Chr (PageNum) , Help 
end; 
LArrow : If RealLinePos>l then {Move cursor left 1 char} 
Begin 
Dec (linePos) ; 
RealLinePos:=Pred(Determine Actual Line Pos 
(HelpLines[LineNum], LinePos)); 


) in [28..127] then 
) else 
Lines [LineNum], 3); 





end; 
RArrow : If RealLinePos<=Length (HelpLines[LineNum]) then 
Begin {Move cursor right 1 char} 
Inc (LinePos) ; 
If RealLinePos<Length (HelpLines(LineNum]) then 
Inc (RealLinePos, 
1+Ord(HelpLines [LineNum, RealLinePost1]=Nul1) *2) 
lse Inc(realLinePos) 
end; 
DnArrow: If LineNum<MaxLinesPerPage then 
Begin {Move down 1 line.} 


Inc (LineNum) ; 


If LinePos<=Length (HelpLines[LineNum]) then 
RealLinePos:=Pred (Determine Actual Line Pos 
(HelpLines [LineNumj, LinePos) ) 
else 


Begin 
RealLinePos:=Succ (Length (HelpLines[LineNum] ) ) ; 
LinePos:=RealLinePos-Link Count (HelpLines[LineNum]) ; 
end; 
end; 


(Listing continued on page 88) 


Dr. Dobb's Journal, June 1990 


ee ee ee 





Get Optimum 
Performance 
Under Adverse 
Conditions With 
The SilverComm 
"C" Async Library. 


Survival in the stormy world of programming 
depends on one crucial factor: creating applica- 
tions that work. Because if your applications 
don’t work, you don’t work. You've got to keep up 
with the ever-changing face of technology, and use 
that technology in the programs you write. 


That’s why SilverWare created the SilverComm “C" 
Async Library. The “C” Async Library uses the very 
latest technology to 
give you reliable, 
high-performance 
interrupt-driven 
control of 
asynchronous com- 
munications in your 
applications. 


In fact, The 
Library is so reli- 
able it’s used in 
applications that 
supply vital up- 
to-the minute 
radar pictures to people tracking hurricanes in the 
Atlantic and the Gulf of Mexico. You can build the 
same dependability into your mission-critical 
applications. 





The SilverComm “C” Async Library helps warn 
residents of an approaching weather 
emergency. 


Device Event Monitoring. 


The Library's key element is its unique Device Event 
Monitor capability that permits execution of your “C” 
functions at interrupt time. The functions can set 
flags signaling your application of an important event. 
You can even create Device Event Monitor functions 
that process the interrupt. 


Feature-Packed Flexibility. 


The SilverComm “C” Async Library is also fully 
interrupt-driven to insure reliable data transfers. It 
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_ incorporates a table-driven design for 
maximum flexibility. All source code is 
included to make customization simple. 
And The Library includes a number of 
powerful features never before available in 
an asynchronous library: 





Huge Model Queues: For queue sizes 
exceeding 64K 
Terminal Emulation: Callable functions to 
enhance development speed 
XMODEM, YMODEM, YMODEM Batch, and 
ASCII: To blend with virtually any application 
Background Timers: To simplify timing 
routines 
Enhanced Compatibility: The ability to exploit 
Micro Channel and 16550 UART 
Supports up to 115K Baud 
Supports IBM Dual Async; PC and Micro 
Channel versions of DigiBoard 4-, 8- and 16- 
port boards; AST 4 port adapters; and an 
unlimited number of COM ports. 

Plus: Flow control, Smartmodem support, 
high-level remote input, character filtering, 
video functions, free technical support, and 
much more. 


Order Now— Satisfaction Guaranteed! 


The SilverComm “C” Async Library helps you 
create applications that can weather any 
storm. At just $249, it’s an exceptional value. 


And you don’t risk anything. The Library comes 

with an unconditional money-back guarantee. If 
you're not completely satisfied, return it for a full 
refund. 


Order your copy now by calling (214) 247-0131. 


FREE PRODUCT INFORMATION AVAILABLE 


Other Products: 


SilverComm “C” EMM Library: $149.00 
AST 4-Port AT and cable: $365.00 
DigiBoard PC/MC Boards: 
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8-Port $555.00 
16-Port $999.00 
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Listing One (Listing continued, text begins on page 22.) 


221: UpArrow: If LineNum>1 then {Move up 1 line.} 

222: Begin 

223% Dec (LineNum) ; 

224: If LinePos<=Length (HelpLines[LineNum]) then 

a a RealLinePos:=Pred(Determine Actual Line Pos 
226: (HelpLines [LineNum] , LinePos) ) 
220s else 

228: Begin 

229: RealLinePos:=Succ (Length (HelpLines[LineNum] )); 

230: LinePos:=RealLinePos-Link Count (HelpLines [LineNum] ) ; 
231. end; 

232) end; 

233; HomeKey: Begin {Move to 1 char. in line.} 
234: LinePos:=1; 

235; RealLinePos:=LinePos; 

236: end; 

237% EndKey : Begin {Move to end of line.} 
238: RealLinePos:=Succ (Length (HelpLines[LineNum] ) ); 

239: LinePos:=RealLinePos-Link Count (HelpLines[LineNum] ) ; 
240; end; 

241: DelKey : If (RealLinePos<=Length (HelpLines[{LineNum])) then 
242) Begin {Delete a character. } 

243) If (HelpLines[LineNum, RealLinePos]) in [’ ’..’}'] 
244, then Delete (HelpLines[LineNum],RealLinePos,1) else 
245: Delete Linked Char (HelpLines[LineNum],LinePos) ; 

246: RealLinePos:=Pred(Determine Actual Line Pos 

247) (HelpLines [LineNum],LinePos) ); 
248) end; 

249; end else 

250: Case Ch of 

251, Return: If LineNum<MaxLinesPerPage then {Move down 1 line.} 
252) Begin 

253i Inc(LineNum) ; LinePos:=1; RealLinePos:=1; 
254; end; 

255) Tab : Begin {Tab right 10 chars. } 

256: If RealLinePos+10<=Length (HelpLines[LineNum])+1 then 
2575 Inc (RealLinePos,10) else 

258: RealLinePos:=Length (HelpLines [LineNum] ) +1; 

259) ; LinePos:=RealLinePos-Link Count (HelpLines [LineNum] ) ; 
260: end; 

261; BkSpc If RealLinePos>1 then {Backspace over prev. char.} 
262: Begin 

263: If HelpLines[LineNum,RealLinePos-1] in [’ ’..’}’] then 
264; Begin 

265: Delete (HelpLines [LineNum] ,RealLinePos-1,1); 

266: Dec (RealLinePos) ; 

267: Dec (LinePos) 

268: end else 

269: Begin 

270; Delete Linked Char (HelpLines [LineNum], LinePos-1) ; 
271: Dec (LinePos) ; 

27125 RealLinePos:=Pred (Determine Actual Line_ 

273: Pos (HelpLines [LineNum],LinePos)); 
274, end; 

2753 end; 

276: eee ot ye If Length (HelpLines [LineNum] )<MaxLineWidth then 
21s Begin {Insert a valid Ascii char. } 

278: If (Ord(HelpLines[LIneNum, RealLinePos])>127) and 
279; (RealLinePos<=Length (HelpLines[Linenum])) then 
280: Ch:=Chr (Ord (Ch) +128) ; 

281; Insert (Ch, HelpLines [LineNum],RealLinePos) ; 

282; Inc (RealLinePos) ; 

283: Inc(LinePos); Ch:=#255; 

284; end; 

285; end; 

286: Until CH in [ESC,PGUp,PgDn]; {ESC=Quit;PGUp=Prev page;PgDn=Next Page 
287% Input _HelpPage:=Ch; 

288; end; {Input helppage} 

289; {--------------------------------------------------------------------} 


290: FUNCTION Read Helprec(Var AHelpRec:HelpRecord; RecNum: Integer) : Integer; 


291: Var I Integer; 

292) Begin 

293; FillChar (AHelprec, SizeOf (AHelprec),0); {$I-} {Hyperdata file read rec 
294) If FileSize (HelpFile)<RecNum then exit; {routine. Includes just 
295; Seek (helpfile, RecNum-1) ; {enough error checking 
296: Read (helpfile,AHelpRec) ; {to be considered safe. } 
297) Read _HelpRec:=I10Result; {$I+} 

298: end; {Read helprec} 

299, {qn on nnn nnn nnn nnn nn nn nn nn nnn nnn $= - $$ == = ---- = ------------ } 


300: FUNCTION Write HelpRec(Var AHelpRec:HelpRecord; RecNum: Integer) : Integer; 
301; Begin {SI-} 


302: Seek (helpfile, RecNum-1) ; {Hyperdata file write rec routine.} 
303; Write (helpfile,AHelpRec); {$I+} {This routine also contains just } 
304; Write HelpRec:=I0result; {enough error checking to be } 
305; end; {Write helprec} {considered safe. } 
1 0 I cea aa ee | 
307: FUNCTION Open HelpFile (FileName: String): Integer; 

308: Var result: Integer; 

309: Begin 

310: Assign(HelpFile,FileName); {$I-} {Opens hyperdata file specified} 
314; Reset (HelpFile) ; {as "FileName". If the file 
312) result :=I0Result; {doesnt exist, then it will be } 
313: If Result=2 then {created. } 
314, Begin {Error checking is limited, but} 
315: ReWrite (HelpFile) ; {enough to be safe. } 
316: Result :=I0Result; 

317: end; 

318: Open HelpFile:=Result; 

319; end; {open helpfile} 

320; {--------------------------------------------------------------------} 


321; PROCEDURE Help Editor(FileName: String); 
322: Const HelpMsgs = 13; 


323. HelpData : Array[1l..HelpMsgs] of String[{17] = 

324; ( ‘Editing Keys: ', aS eS SS , 

325: "FQ : Link (+/-)’, CaN, : Del EOLine’, 

326: "Bkspc: Del left’, ‘Del : Del char’, 

327) Chr(10)+’Movement keys: ', '-------------- a 

328: Chr (24) +Chr (25) +Chr (27) +Chr (26) +’, '+Chr(17)+Chr(217)+’,’, 
329; "Tab, Home, End’, "PgUp : Prev page’, 

330: "PgDn : Next page’, Chr(10)+’ESC to quit.’); 


331: Var I,HelpRecNum: Integer; 
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332: AHelpRec : HelpRecord; 

333: Ch + Char; 

334) Result Integer; 

335: Begin 

336: Result:=Open HelpFile (FileName) ; {Open the specified file.} 
337) If Result=0 then {Continue only if no error.} 
338) Begin 

339% TextAttr := NormalColor; 

340: Draw Box(1,3,80,23,NormalColor,1); 

341 Draw Box(2,4,60,22,NormalColor, 2); 

342: Gotoxy (61,4); 

3431 For I:=l1 to HelpMsgs do 

344, Begin 

345) Gotoxy (62,WhereY+1); Write (HelpData[i]); 

346: end; 

347: HelpRecNum:=1; 

348; Gotoxy (40-(Length(Header) div 2),3); Writeln (Header) ; 

349, Gotoxy (4,2); Writeln(’File: ’,FileName) ; 

350: Repeat 

3511 Gotoxy (4,4); Writeln(’ Reading '’); 

352) Result:=Read_HelpRec (AHelpRec, HelpRecNum) ; 

353) Gotoxy (4,4); Writeln(’Page: '’,HelpRecNum: 3) ; 

354) Ch:=Input_HelpPage (3, 4, AHelpRec) ; 

355) Result :=Write_ HelpRec (AHelpRec, HelpRecNum) ; 

356) Gotoxy (4,4); Writeln(’ Writing '); 

357) Case Ch of 

358: PgUp : If helpRecNum>1 then Dec (HelpRecNum) ; 
359; PgDn : If HelpRecNum < 255 then Inc(HelpRecNum) ; 
360; end; 

3611 Until Ch=ESC; 

362: end else {Report the opening error...} 

363: Writeln(’ERROR: ’,Result,’ opening ’,FileName,’. Unable to continue.’); 


364: {$I-} Close(HelpFile); Result:=IOresult; {$I+} 
365: end; {Help editor} 


S004 (oes eee ae eS eae re anes SS aa Se See ae } 
367: FUNCTION Find Next Link( Var X,Y: Integer; EndX,EndY: Integer; 

368: i Var AHelpRec: HelpRecord): Boolean; 

369: Var OrigX,OrigY,Col, {Recursive routine used to finda } 
370: Row, StartCol,StopCol: Integer; {hot-link on the page after the } 
371: Begin {current page position (X,Y). } 
3721 Find Next_Link:=False; 

373: {First, search from current pos to end of page...} 

374, For Row:=Y to EndY do 

375; Begin 

376: If Row<>Y then StartCol:=1 else StartCol:=X; 

377, If Row<>EndY then StopCol:=Length (AhelpRec.HelpLines [Row] ) 
378; else StopCol:=EndX; : 

379; If AhelpRec.HelpLines[Row]<>’’ then 

380: For Col:=StartCol to StopCol do 

381: If (AHelpRec.HelpLines[Row,Col]=Null) then 

382: Begin 

383; Find Next_Link:=True; 

384: X:=Col; Y:=Row; 

385: Exit; {make a quick getaway! } 

386: end; 

387; end; 

388, {ok, search from top of page to the startpos} 

389; If X+Y>2 then 

390: Begin 

391: Col:=1; Row:=1; 

392: If Find Next _link(Col, Row, Pred(X),Y,AHelpRec) then 

393: Begin 

394. X:=Col; Y:=Row; Find Next_Link:=true; 

395: end > 

396: end; 

397; end; {find next link} 

EMI (ae alla a lt wi } 
399, FUNCTION Find Prev Link( Var X,Y: Integer; EndX,EndY: Integer; 

400 Var AHelpRec: HelpRecord): Boolean; 

401: Var OrigX,OrigY,Col, {Recursive routine used to find a } 
402: Row, StartCol,StopCol: Integer; {hot-link on the page prev. to the} 
403: Begin {Current page pos. (X,Y). 

404; Find Prev_Link:=False; 

405: {First, search from current pos to top of page...} 

406: For Row:=Y downto 1 do 

407. Begin 

408, StopCol:=1; 

409: If Row<>Y then StartCol:=Length (AhelpRec.HelpLines [Row] ) 
410; else StartCol:=X; 

411: If AhelpRec.HelpLines[Row]<>’’ then 

412: For Col:=StartCol downto StopCol do 

413: If (AHelpRec.HelpLines[Row,Col]=Null) then 

414) Begin 

415: Find Prev_Link:=True; 

416: X:=Col; -Y:=Row; 

417; Exit; {make a quick getaway! } 

418; end; 

419; end; 

420: {ok, search from bottom of page to the startpos} 

421: If X+Y>2 then 

422) Begin 

423) Row:=MaxLinesPerPage; 

424, Col:=Length (AHelpRec.HelpLines [Row] ) ; 

425: If Find Prev _link(Col, Row, Succ (X),Y,AHelpRec) then 

426: Begin 7 

427) X:=Col; Y:=Row; Find Prev Link:=true; 

428; end 7 7 

429; end; 

430: end; {find prev link} 

431) {-------------------------------------------------------------------- } 


432: PROCEDURE Do Help(FileName: String; GoPage,HomePage: Word); 
433; Const XPos = 10; 
434; YPos = 5; 

4351 Color : Byte 


= Black*16+White; 
436. MaxStackSize = 25; 


This is the hypertext engine. 


{ } 
{This routine is used to read } 
437) {and navigate through a data } 
438: Type StackRec = Record {file, specfied as "FILENAME". } 
439; Page : Byte; {GoPage specifies the starting} 
440; Row, {page to display, and HomePage} 


(Listing continued on page 90) 
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Vitamin C— 
the ultimate 
in data windows— 
gives you the power to create 
complex applications with a consistent 
user interface. Applications that are easier 
for you to write and for end-users to utilize. 


Simple C function calls unleash 
Vitamin C’s powerful line-up. Windows, 
data entry, menus, help—it’s all here—no 
extra modules to buy. Library source and 
free tech support are included—standard! 


Veteran or beginner, you II get maxi- 
mum power with minimum effort from 
Vitamin C’s high level functions. Lower 
level routines offer full control and make it 
easy to refine your design. 


Unrivaled versatility makes you more 
productive and more competitive. In fact, 
Vitamin C’s open-ended design provides 
virtually limitless customization potential— 
even without modifying the source. Plus, 
Vitamin C is the perfect front-end for your 

1 DBMS or other function library. 








: Advanced features like programmer 
sd defined functions before/on-exit/after-exit 
Ht for each field/menu/menu-item complete 
ee] the picture. 

Top it off with comprehensive printed 
documentation, no royalties, and our 30- 
day money back guarantee and you have 
more than a function library—you have 
solutions—you have Vitamin C! 








HYPERTEXT SYSTEM 


FI NAL LY Listing One (Listing continued, text begins on page 22.) 


66 59 441, Col : Integer; {is used to specify an main } 
THE IDEAL “C” SEMINAR!|| |. = amare | 
s 443; Var Result : Integer; 
. . , 444, Stack : Array[0..MaxStackSize] of StackRec; 
Within one week, you can increase the value of 445! AHelpRec: HelpRecord; 
your employees by adding “C” to your eo ed 
; . q f otackhvl: 7 
company's programming language vocabulary! 448: StartCol: Integer; 
449) Linked, 
CONVENIENT COST-EFFICIENT 131 FUNCTION Pop. Stac! 
> 451; FUNCTION Pop Stack: Byte; {Pop the top page info (Stack) record} 
66 +) 452; Begin 
C TRAINING 4531 If StackLvl>1l then 
: 454) Begi 
Thousands of people have been trained and tee an cr 
they have given CLA courses consistently 456: Load:=True; 
superior reviews with our competitively priced 457: Ss eee se 
R fic} t j ANS| You 458) Pop_Stack:=StackLvl; 
courses. PrecomMme pro icien in 459} end; {pop stack} 
in one week. 460: FUNCTION Push Stack(PageNum: Byte): Byte; 
461, Begin {Push a page info (stack) record. } 
462; Inc (StackLvl) ; 
FLEXIBLE SCHEDULING 463, Stack [StackLvl] .Page:=PageNum; 
464; Stack [StackLvl] .Col:=1; 
Public classes are offered monthly in our a | ce atacand 
: : . ush Stack:=StackLvl; 
_ Collingswood office, convenient to 167! ne eye aes 
Philadelphia. Classes can also be scheduled 468! Begin 
at your company site. 469) If GoPage=0 then GoPage:=1; {Make sure GoPage is valid 
470; Result:=Open HelpFile (FileName) ; 
A471; If Result=0 then 


FOR FAST INFORMATION rt ee: 
CALL TOLL FR 474, TextAttr :=Color; 
EE 475) Draw Box (Xpos, YPos, XPos+59, YPos+MaxLinesPerPage+2,NormalColor,2); 




















476! FillChar (Stack, SizeOf (Stack) ,0); 
ae - ae 477) StackLvl := 0; 
4 800 842 9667 78; If HomePage in [1..255] then StackLvl:=Push Stack (HomePage) ; 
and we will FAX or mail you the oe eee ee 
latest brochures 481! GotoXY (XPos+29- (Length (Header) div 2), YPos) 7 
482; Writeln (Header) ; 
483, Repeat 
Pa 484, With Stack[StackLvl] do 
485; Begin 
486; If Load then {System needs new hyperdata file page.} 
: 487; Begin 
a 488} Result:=Read HelpRec (AHelpRec, Page) ; 
COMPUTER LANGUAGE ARTS 489; Show Help Page (XPost+1, YPos, AHelpRec) ; 
, . 490; Gotoxy (XPost+51, YPostMaxLinesPerPage+2) ; 
704 Haddon Avenue; Collingswood, NJ 08108 491} If StackLvl>1 then Write(’Esc,PgUp’) else 
492; Vrite(’Esc=Quit’); 
493) Linked:=Find Next Link(Col, Row, 80,MaxLinesPerPage, 
CIRCLE NO. 388 ON READER SERVICE CARD 494) _ anelenee) ; 
495, Load:=False; 
496; end; 
A lications & 497} If Linked then {We have a hot-link to show, so do it.} 
498 | Begin 
pp 499; StartCol := Col; 
Cc B B DO Mi J 500; While Ord(AHelprec.HelpLines [Row, StartCol-1])>127 
501; do Dec (StartCol) 
ommunications IX! 502: Show HelpLine (XPos+1, YPos+Row, StartCol, Pred(Col), 
503; AHelpRec.HelpLines[Row]); 
Do your users need a reliable and 504: end; bei eeeceee 
. 505, Repeat Ch:=Read_ KeyBoard until Ch<>Null; 
effortless way to deliver the benefits of 506! Show_HelpLine (XPos+1, YPos+Row, 0, 0, AHelpRec.HelpLines [Row]) ; 
. . : 507) Case Ch of N h € navigation... 
your application to their head office? 508: — ee 
Would you like an electronic rd fs en 
link to each and every one ae Linked:=Find Next _Link (Col, Row, 80, 
PC . a MaxLinesPerPage, AHelpRec) ; 
of your users? 513! end; se 
: 514: Return If Linked then 
Does the idea of 515! ee 
Begin 
516! Load:=true; 
© LEZ software upgrades and 517! If (StackLvl>1) and 
‘ —_x=—_ fixes over the tele- nt ee aa 
: . 19; Ord (AHelpRec.HelpLines[Row,Coltl1])) then 
LAN Wy ——_——— hone intrigue you? 520: StackLvl:=Pop Stack else 
Ye Sa P oY y 521; StackLvl:=Push Stack (Ord (AHelpRec.HelpLines 
UNO These are just 522! Row, Colt1])); 
. 523) end; 
File Server Dovetail PC some of the questions 524) LArrow : Begin 
that Dovetail™ answers. ee Be ead ee 
: 5265 Linked:=Find Prev _Link(Col,Row,1,1,AHelpRec) ; 
Dovetail has the features a end; 
. 28: DnArrow: Begin 
you need to do everything from a 529) eoli-y 
: : 7 530: If Row<MaxLinesPerPage then Inc(Row) else Row:=1; 
simple file transfer to anaes, eco” 531 Linked:=Find Next _Link (Col, Row, 80, 
pletely distributed application, without 5 onde iaaeini iia laa 
spending months in development. Se UpArrow: Begin 
EF ; . 535 If Row>1l then Dec(Row) else Row:=MaxLinesPerPage; 
PC or more information about how your 536 If Col<Length (AHelpRec.HelpLines [Row] ) 

. : é F : : 537 then Inc(Col) ; 
application can become a telecommunicating application, 536 vied Ati ieee Teese 
call 415-492-1303 today. en a eee 

540 ackLvl:=Pop Stack; 
54] PgDn Begin Let programmer set this! a; 
542 end; se 
DOVETAIL COMMUNICATIONS 543 end; 
TECHNOLOGIES, INC. aes 
1050 Northgate Drive, Suite 455 546: Writeln (’ ERROR: ‘ ,Result,’ opening ’,FileName,’. Unable to continue.’); 
? 547; {$I-} Close(HelpFile); result:=IOResult; {SI+} 
San Rafael CA 94903-2540 548; end; {do help} 


415-492-1303 


550: Begin {No init code required} 


End Listing 
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VRAiatlmvosrl @slectertestes 


Greenleaf CommLib™ 3.0 is Relief for C Programmers 


INfoyaelereyererusterce 


Witexecim Ona Ole ae 
Turbo C 2.0 & Turbo C++ 


Zortech C++ 
Lattice C 6.0 


If you’re like most C programmers, 
communications problems are enough 
to give you a migraine. Interrupts 
require tricky assembler routines. File 
transfers are done by promethean 
amounts of ill-documented code. Lost 
data will drive you to the aspirin bottle 
every time! Where to find relief? 


"Saying that Greenleaf CommLib 
is a library of interrupt driven 
asynchronous communication routines 
for the IBM PC and close compatibles 
... is the same as saying the Ferrari is 
just a car." - Victor Baron, writing in 
Telecomputing. 

Greenleaf’s C libraries have been 
solving headaches (backaches, tummy 
problems, etc.) for some of the best 
programmers in the business for 
years’. CommLib v3.0 ends 
communication woes faster than you 
can say "XON"! Hand crafted interrupt 
routines take care of every UART 
situation. File transfers using Kermit, 
XMODEM, YMODEM and ASCII are 
just a function call away. 


CRC, Checksum, "1-K" and '"G" options 
supplied for XMODEM and YMODEM 
too. XON/XOFF Software flow control 
and RTS/CTS handshaking are 
supported as you’ve never seen them. 
Baud rates to 115.2Kb with up to 35 
ports on five different manufacturer’s 
multi-port boards. COM3-8 for PS/2 
supported. Complete Hayes type 
modem controls. You can even run 
different baud rates and protocols 
on different ports simultaneously. 


All Greenleaf function libraries 
include FREE source code in C and 
assembler, telephone support, 
databases for 
pons online 

elp engines, 
and thorough 
documenta 
tion. Free 
PDQPlus™ 
help engine 
too! 





Now C works for business applications! 
This professional C library combines 
freedom from rounding errors with dozens 
of financial functions like: 
¢ Internal Rate of Return and MIRR 
¢ Compound & Simple Interest 
Bond Yield 


Depreciation & Amortization 
Array processing, Statistics, Trig 
Transcendentals, Date Manipulation 
¢ Special I/O for financials 
Hundreds of functions, 19-digit exact 
decimal paradigm, complete Online Help 
system including engine, 196 example 


programs. Compute a complete 
amortization or depreciation table with 
a single function call. 





FAX: (214)248-7830 
Greenleaf Software Inc. 
16479 Dallas Parkway, Suite 570 
Dallas, TX 75248 


2 EEE TS 
Greenleaf C libraries are used by programmers at AT&T Bell Labs, EDS, IBM, General Electric, General Motors, Northern 
Telecom, Citicorp, DuPont, Rockwell, Johnson Controls, Westinghouse, McDonnel Douglas, Kodak, Teledyne, Control Data, 
TI, Boeing, Scientific Atlanta, Laurence Livermore Labs, U.S. DOE, and many many others. 
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HYPERTEXT ENGINE 


Listing One (Text begins on page 34.) 


Demonstrates basic principles of hypertext 
document construction and management. 
(c) Copyright 1989 Todd King 


All Rights Reserved 


Written: Todd King 


#include 
#include 
#include 
#include 
#include 


main () 


{ 


int n; 


clrscr 
printf 


<stdio.h> 
<string.h> 
<conio.h> 
<ctype.h> 
"hyper d.h" 


(); 
("(c) Copyright 1989 Todd King. All Rights Reserved\n"); 


sleep (2); 


if((Hyper fptr = fopen("HYPER.TXT", "r")) == NULL) 
{ 


perror("fopen"); 


exit 


} 


(1); 


build hyperbase(); 


n = 0; 
while ( 


(n = enter text (Hyperbase[n].tag)) != -l) ; 


clrscr(); 
fclose(Hyper fptr); 


Builds 


the global index data base for the 


hypertext document. 
Written: Todd King 


build hyperbase() 
{ 


char buffer[MAX HYPER LINE]; 
HYPERITEM *hitem; 
int n; 


for(;;) 


{ 


if(fgets(buffer, sizeof (buffer), Hyper fptr) == NULL) 
{ 


BUILDING BLOCKS 
FOR THE ASSEMBLY 
LANGUAGE PROGRAMMER 


























Price $99.95 
With Source Code 
$299.95 


92 


POWER LIB 


S/H $5.00 

Outside U.S. $15.00 
CA Residence 

Add 7% Sales Tax 
MC and VISA 


& Over 256 Assembly Language Routines 
> Vo Need to Re-Invent the Wheel Every Time 

You Write a New Application 
m Permits Faster Application Development 
& Overlapping Windowing System in Less Than 3K 
em fast and Compact 
> /deal For Programming TSR’s 
m Cand Pascal Interfaces Available 

MASM 5.X Compatible 

ALSO AVAILABLE: 


ASMFLOW $99.95 

An Assembly Language 
Flow Charting and Source 
Code Analysis Tool 


19855 Srevens Creek Blvd, Suite 154 
Cupertino, CA 95014 
(408) 244-6826 
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break; 
} 
switch (buffer[0]) 
{ 
case '\f': 
if((hitem = make _item()) == NULL) 


. fprintf(stderr, "No more room in the Hyperbase\n") ; 
exit (0); 


fgets(buffer, sizeof (buffer), Hyper fptr); 
n = strlen(buffer); 
if(buffer[n - 1] == ’\n’) buffer[n - 1] = ’\0’; 
set tag(hitem, buffer); 
set_position(hitem, ftell(Hyper fptr)); 
break; 
} 
} 


return (Hyper cnt); 


Enters the hypertext document at a specific 
tag location. It then allows navigation within 
the document. 
Written: Todd King 
enter text (tag) 
char tag[]; 
{ 
unt “Cc, Nn; 
HYPERITEM *hitem; 
char *bptr; 
char *pptr; 
char *tptr; 
int i; 
char buffer[MAX HYPER LINE]; 
int line put; | 
int, Jane cnt = 37 
int col _cnt 0; 
int ref cnt = 0; 
int hidx; 
HYPER REF hyper ref[MAX HYPER]; 


oil 


hitem = find item(tag); 


if (hitem == NULL) 
f 


t 
fprintf(stderr, 
"No hypertext subject by the name of ’%s’ exists\n", tag); 


return (-1); 
} 
hidx = hyper idx(tag); 
clrscr(); 
fseek (Hyper fptr, hitem->position, SEEK SET); 
bptr = fgets(buffer, sizeof(buffer), Hyper fptr); 
textcolor (LIGHTGRAY) ; 
gotoxy (1,24); 
cputs("ESCAPE: to exit; UP ARROW, DOWN ARROW: to navigate"); 
gotoxy(1,1); 
cputs(tag); cputs("\r\n"); cputs("\r\n"); 
while(bptr != NULL) /* For all lines in the current hypercard */ 
col cnt = 1; 
for(i =.07 1 <.ayper ent; 14+) 
{ 
if((pptr = strstr(bptr, Hyperbase[i].tag)) != NULL) 
if( i == hidx) continue; /* no self-referencing */ 


if(pptr != bptr) 
{ 


if(!ispunct (*(pptr - 1)) && !isspace(*(pptr - 1))) continue; 
} 
tptr = pptr + strlen(Hyperbase[i].tag); 
if(ispunct (*tptr) «1: isspace(*tptr) }! *tptr == ’\0*) 
{ 
/* Deliniator */ 
} else { /* No good */ 
continue; 


/* If we reach here we’ve found a genuine tag */ 
pptr[0] =’\0'; 
col cnt += strlen(bptr); 
hyper _ref[ref cnt].line = line cnt; 
hyper_ref[ref cnt].column = col cnt; 
hyper ref[ref cnt].tag = Hyperbase[i].tag; 
cputs (bptr) ; 
textcolor (YELLOW) ; 
cputs (Hyperbase[i].tag); 
textcolor (LIGHTGRAY) ; 
bptr = pptr + strlen(Hyperbase[i].tag); 
col _ cnt += strlen(Hyperbase[i].tag) ; 
ref cnt++; 
} 
} 
Cputs (bptr) ; 
eprinté ("\E")F 
if(line cnt >= 23) { 
break; 


/* What to do at the end of a screen */ 


} 

bptr = fgets(buffer, sizeof(buffer), Hyper fptr); 
if(buffer[0] == ’\f’) bptr = NULL; - 

line. cnit++; 

col ent. = 0; 


if((n = nav_ref (hyper ref, ref cnt)) >= 0) return(n); 


Ree ee ee ee eee ee 
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The function that performs the actual 
navigation within a hypertext document. 
Written: Todd King 


nav_ref (hyper ptr, max_ref) 
HYPER REF hyper ptr[]; 
int max ref; 
{ 
int advance = 0; 
int selected = -1; 
int cur_ref = 0; 


for(;;) 
{ 
cur_ref += advance; 
if({cur reft.< 0) cur ref = max ref - 1; 
if(cur ref >= max ref) cur ref = 0; 
advance = 0; 7 7 
gotoxy (hyper ptr[cur_ref].column, hyper ptr[cur_ref].line); 
textbackground (LIGHTGRAY) ; 


textcolOr BURCH), bject oriented, extensible, aphishelel but m 


switen (etch) Menuet is the most thoroughly designed and ey fo se 


case 0: 


switch (getch() Interface (GUI) for the DOS environment. 
case DOWN ARROW: 
advance = 1; 
break; 
case UP_ARROW: 
advance = -l; 
break; 
} 
break; 
case '\r’ 
case ’\n’ 
selected = cur ref; 


break; 

case ESC: 

textbackground (BLACK) ; 

textcolor (LIGHTGRAY) ; 

return (-1); 
} 
gotoxy (hyper ptr[cur_ref].column, hyper_ptr[cur_ref].line); 
textcolor (YELLOW) ; 7 


textbackground (BLACK) ; 
cputs (hyper ptr[cur_ref].tag); 
if (selected != -1) return(hyper_idx (hyper ptr[selected] .tag)); 


Determines the index of a hypertext tag 
within the global database. 
Written: Todd King 





2s atiedietnen esse a ee eee eae x / 
hyper _idx(tag_str) 
char tag_str[]; 
{ 
int. 2; 
for(i = 0; i < Hyper_cnt; i++) { 
if(strcmp(tag_str, Hyperbase[i].tag) == 0) return(1i); 
} _ 
Tea Nenuet also offers the powertul Intertace 
fC Ee EEE OR interactively edit and prototype your applications with automatic source code 
Locates an item in the global database : 
with the tag as a key. Returns a pointer generation. 


to the entry or NULL if one does not exist. 
Written: Todd King 


Se ee */ Menuet $325 No Royalties. 


HYPERITEM *find_item(tag) 




















h (]; 
{ wes Avoilable for Turbo C, Microsoft C, Zortech C, and (++. Requires MetaWINDOW. 
HYPERITEM *hitem; 
ne CIRCLE NO. 286 ON READER SERVICE CARD 


for(i = 0; 1 < Hyper_cnt; itt) 


hitem = &Hyperbase[i]; 
if(strcemp(tag, hitem->tag) == 0) return(hitem); @ Or "194 pm emo. — 
} 


return (NULL) ; 
} ,' 
/ Foca coe eee ee eee ee ee tS eee ee eee : 
Sets the tag portion of a database entry to 2 
the contents in a passed string 


Written: Todd King 


set_tag(hitem, buffer) 
HYPERITEM *hitem; 

char buffer[]; 

{ 


char *malloc(); 


hitem->tag = malloc(strlen(buffer) + 1); 
if (hitem->tag == NULL) 
{ 

perror ("malloc"); 

exit (2); 


} 
strcepy (hitem->tag, buffer); 


(Listing continued on page 94) 
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GRAF/DRIVE PLUS 


Graphics Drivers 
Co) am MUL golem Oar-lale MUL golem ar: t-yer-]| 


NEW! Turbo Graphics for 
Printers and Plotters 
(With No Royalties) 


LaserJet/Epson printers, HPGL plotters. The same code 
plots on screen, printer, or plotter. Just plug our drivers 
into Turbo’s initgraph. Not a screen dump. You get the 
full resolution of the output device. 


Save Money! No royalties to pay. 
Same Memory! Not TSR. Max 16K. 
Save Time! Convert your screen graphics in minutes. 


BGI compatible. arc, bar, bar3d, circle, drawpoly, line, 
ellipse, pieslice, rectangle, sector, line and fill patterns, 
viewports, scalable typefaces, and more—all 100% 
interchangeable with screen graphics. . 


Personal License $149, Developer License $299. 
30-day m/b guarantee. 


FLEMING SOFTWARE BOX 528 OAKTON, VA 22124 
(703) 591-6451 
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You'll never use malloc again! 
VENN Dynamic SET MANAGER 


Powerful Storage Management 
¢ Unlimited Size Arrays/Structures ( Data Sets ) 
¢ Transparent Migration: Expanded Memory/Disk 
¢ Automatic Storage Size Adjustment 
* Transient or Permanent Data Sets 


Direct Storage References 
* Local Windows into Any Region of Data Set 
¢ All Standard C Operations on Local Windows 


Intelligent Operators 
* Compare and Copy 
¢ Any Set, Any Size, Any Storage Combination 


Relational Style Operators 
¢ Restrict, Intersect, Sort, Delta, and more 
¢ Find Matches 
¢ Create Subsets 
¢ Sort Data Sets 
¢ Perform Updates 


Easy To Use 
¢ Simple Declarations 
* Sample Applications 
¢ One Linkable Library 
¢ Microsoft C and Turbo C Versions 


VV ONLY $129.95 
CQ) ENN _ setprocessinG SOFTWARE 
1-800-628-8369 P.O. BOX 1008 
VISA/MC ANN ARBOR, MI 48106-1008 
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HYPERTEXT ENGINE 


Listing One (Listing continued, text begins on page 34.) 


Makes (extracts) a new database entry item 
from the item pool. 
Written: Todd King 

HYPERITEM *make_item() 

{ 
if (Hyper cnt >= MAX HYPER) return(NULL) ; 
return (&Hyperbase [Hyper cnt++]); 

} 


End Listing One 


End Listing Two 


Listing Two 
#define UP_ARROW 72 
#define DOWN ARROW 80 
#define ESC 27 
typedef struct { 
char *tag; 
int position; 
} HYPERITEM; 
typedef struct { 
int line; 
int column; 
char *tag; 
} HYPER REF; 
#define MAX HYPER 1024 
HYPERITEM Hyperbase [MAX HYPER]; 
int Hyper cnt = 0 
FILE *Hyper fptr; 
HYPERITEM *make item(); 
HYPERITEM *find item(); 
#define set_position(h, p) h->position = p 
#define TRUE 1 
#define FALSE 0 
#define MAX HYPER LINE 80 
Listing Three 
Function Flow Diagram 
main () build hyperbase () make item() 
set_tag() 
set_position() 
enter text () find item() 
hyper idx () 
nav_ref () 
main () 
This is an application that displays’a hypertext document. 
It automatically creates a list of hyper-items (or cards) 
that are in the hypertext document. Then it creates the 
appropriate links so that you can navigate to any item 
that is referenced by any other item. It uses the contents 
of the file "HYPER.TXT" as the hypertext document and begins 


at the first item in the document. 


Function Flow Diagram 


build _hyperbase () 
build hyperbase() 


This function builds the global database for the hypertext 
document. It scans the entire document and assembles a list 
of all cards in the document and stores their location 
within the file and the tag, which the card is to be known 
by. This database is stored in the global variable 
"Hyperbase". 


Function Flow Diagram 


enter text () 


enter text (tag) 
char tag[]; 


Enters the hypertext document at a specific 

tag location. The tag (a string) is passed in the variable 
first variable called "tag". It then allows navigation 
within the document. 


Function Flow Diagram 
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This function performs the actual navigation within a 

single card. It returns the index of the hyper-item within 
the card which was selected. A special code (-l) is returned 
if a request to exit is entered. "cur_ref" is the index of 
the current card, "hyper ptr" is a pointer to a structure 
containing the list of references in the card and "max ref 
is the number of references in "hyper ptr". 7 


Function Flow Diagram 


hyper idx() 


hyper idx(tag_str) 
char tag str(); 


Returns the index of the tag "tag str". The global 
database ("Hyperbase") is searched for the existence of 
the tag. 


Function Flow Diagram 


i 


find item() 


HYPERITEM *find_item(tag) 
char tag[]; 


Locates an item in the global database ("Hyperbase") 
with the tag as a key. Returns a pointer 
to the entry or NULL if one does not exist. 


Function Flow Diagram 
set_tag() 


set_tag(hitem, buffer) 
HYPERITEM *hitem; 
char buffer[]; 


Sets the tag portion of the database entry pointed 
to by "hitem" to the contents in the string "buffer". 


Function Flow Diagram 


make_item() 
HYPERITEM *make_item() 


Makes a new database entry. Actually it extracts 
the next available entry for a pool and returns a pointer 
to the entry. 


Function Flow Diagram 


set_position() 


set_position(h, p) 
HYPERITEM *h; 
int p; 


Actually a psuedofunction (created with a define) which 
assigns an location of an item in a file to the item 
definition. 


Function Flow Diagram 


HYPERITEM 


A structure that contains a complete description a single 
item (or card) with the hypertext document. It is of the 
form: 


typedef struct { 
char *tag; 
int position; 
} HYPERITEM; 


Function Flow Diagram 


HYPER_REF 
A structure of the form: 


typedef struct { 
int line; 

int column; 
char *tag; 
} HYPER_REF; 


Function Flow Diagram 


HYPER. TXT 


The text file that contains the hypertext document. The 
beginning of an item is marked by a special line. This line 
is a formfeed followed by a newline. The next line after 
this is considerd to be the name of the item (the item tag). 
If this name appears in any other tag then navigation to 
the item is allowed by selecting the tag in the item. 


Function Flow Diagram 
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End Listings 
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C++ FILE OBJECTS 





CREATE THE MOST COMPLICATED OF FORMS 
1 For the H-P Series II or Compatible 


,ct 
nv? 


Listing One (Text begins on page 50.) 








\ /* FILETEST.HPP Written by Kevin D. Weeks Released to the Public Domain */ 





#ifndef FILESPEC HPP // prevent multiple #includes 
#define FILESPEC HPP 


@ Horiz. or vert. type 
@ Move blocks easily 





#include <stdio.h> 







@ Grids, graphs, charts fdefine ERR 1 
// create a boolean type 
typedef enum{FALSE, TRUE} bool; 


® Screens or patterns 
e@ Check-off boxes 


Includes instructions on 
how to integrate forms 
with your program. Or 






// specify attribute sizes 

#define SIZE DEVICE 2 

#define SIZE PREFIX 64 

#define SIZE NAME 9 // the dot is part of the name 
#define SIZE SUFFIX 3 








// these constants are used as flags in the condition attribute 








#define FLAG DEVICE 0x0001 

i #define FLAG PREFIX 0x0002 

rncaireas supply ees with #define FLAG NAME 0x0004 
forms on diskette. #define FLAG SUFFIX 0x0008 
#define INCOMPLETE 0x000f 

Advanced features not #define INVALID CHAR  0x00f0 
found elsewhere. #define READ ONLY 0x0100 






‘@ Internal Reports 






class File Spec 





Mo s 
e Accounting @ Gov't. 6 FREE 
e i zl ‘ // first define the attributes 
eget ad siriggeaners FONTS char device(SIZE DEVICE + 1]; // under MS-DOS, the disk drive 
o's « us muc mucn more char *prefix; // " , the path 
: : On, char name [SIZE NAME + 1]; // . . , Still the name 
$7 Ly char suffix[SIZE SUFFIX + 1]; // " " , the extension 
char *request; // pointer to response string for 
0 U <@ LI 85 // get_XXXX() methods 
O a TI int prefix length; 
int request_length; 
unsigned int condition; // current status of the object 





BUSINESS SYSTEMS 
5C Medical Park Drive Pomona, NY 10970 






// and then the private methods 













bool check prefix (void) ; // determine completeness of prefix 
bool parse prefix(void); // interpret relative prefix 
= bool check _chars(char *string, unsigned int attrib flag); 
Check or Amex (91 4)354 8666 7 : // test for valid MS-DOS file chars 
” see void copy(const File Spec& original); // copy another file spec 
; bool clear_attribute(char *attribute, unsigned int attrib flag); 
bool realloc(char **pointer, int *length, int new length); 





// make class File Spec a friend of itself 
friend class File Spec; 


// now the public methods 
public: 
// construct file specifications 
File Spec(void); 
File Spec(const char *file); 
File Spec(const File Spec& original); 


TRUE OPTIMIZING COMPILER // destroy a file specification 


“File Spec (void) ; 
not a translator ial 
// return status of object 


SOURCE-LEVEL DEBUGGER unsigned int status (void); 

window interface available // extend the language by overloading the = operator 

File Spec operator=(const File Spec& original); 
LIBRARY SUPPORT // ALL get_XXXX() methods guarantee to return NUL-terminated strings 
C/C++ Libraries char *get_device (void) ; 

char ‘get. pretix (voLd).; 
char *get_name (void); 

2.0 COMPATIBLE char *get_suffix(void); 
char *filespec (void) ; 


Multiple Inheritance & Virtual Functions 
// ALL change_XXXX() methods guarantee to copy no more than SIZE _n x 
// characters from the pass parameter 


© VAX/Ultrix bool change device(const char *string = NULL); 

bool change prefix(const char *string = NULL); 

o NCR Tower 32 o Hewlett-Packard 9000/300 bool change _name(const char *string = NULL); 

o Sun 386i o MOTOROLA Delta Series 680X0 bool change _suffix(const char *string = NULL); 

o Sun-3 o Interactive Unix/386 // disables/enables change_XXXX() 

0 SCO Xenix/386, SCO Unix/386, & AT&T Unix/386 men een Oude theo! 2130) 9 

© Soon to be joined by DECstation and Sun SPARCstation // attempt to complete the file specification 
bool complete (void) ; 

be 
Also available from Oregon Software: Pascal-2 and Oregon Modula-2 development systems, #endif 


Source-Tools management system, & C++ training seminars 
SOFTWARE LEASING NOW AVAILABLE! 


Call 1-800-874-8501 Listing Two 


/* FILESPEC.CPP Written by Kevin D. Weeks Released to the Public Domain */ 


OREGON @ SOFTWARE ee 
#include <string.h> 


7 


#include <ctype.h> 


End Listing One 





6915 S.W. Macadam Ave. Portland, Oregon 97219 





TEL: 503-245-2202 FAX: 503-245-8449 #include "filespec.hpp" 
‘/ this declaration instructs the compiler to NOT perform name-mangling 
on these functions. 
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extern char 1l_get_drive(void) ; 
extern int 1ll_get_cwd(int, char *); 
extern unsigned int ll _write(int, unsigned int, const void *); 


} 


// these constants are states used in parsing the file string 


#define DEVICE 1 
#define PREFIX 2 
#define NAME 3 
#define SUFFIX 4 


// a macro to return out of memory errors 


#define MEM ERR(length) { errno = ENOMEM; length = 0; return NULL; } 


extern volatile int errno; 


/* This final File Spec constructor is passed a character string that it 

attempts to parse into its various components. Parsing is done with 

a finite state machine that begins at the end of the string and backs 
.’, and ’\’. Once the string has been parsed the components are 
checked for completeness and for the validity of the file characters. 
In order to correctly interpret a string with a prefix but no name the 
string must end with a ’\’. Also note that any individual component 
device, name, etc.) that is too long is truncated to a legal length. 


’ Uy 
' 


x 
/ 
File Spec::File Spec(const char *file) 
{ 
char *tmp file; // local copy of tmp file 
char *tmp prefix; // temporary string for the prefix 
int pos; // current position in tmp file string 
int state; // current state 
int i; // trash variable 
// initialize everything that needs initializing 
prefix = NULL; 


prefix length = 0; 
request_length = 0; 
condition = 0; 


device[0] = device[SIZE DEVICE] = TNO" 
name(0] = name[SIZE NAME] = '\0’'; 
suffix[0] = suffix[SIZE SUFFIX] = '\0'; 
errno = 0; 
if (file == NULL |: *file == ’\0’) 
{ 
condition = INCOMPLETE; 
return; 
} 
if ((tmp file = new char[strlen(file) + 1]) == NULL) 
{ 
errno = ENOMEM; 
return; 
} 
strepy(tmp_ file, file); 
if ((tmp prefix = new char[SIZE PREFIX + 1]) == NULL) 
{ 
errno = ENOMEM; 
return; 


} 
tmp prefix[0] = tmp _prefix[SIZE_PREFIX] = '\0’; 
pos = strlen(tmp file) - 1; // set pos to last character 
// this while loop is the finite state machine mentioned above. note 
// that the strncpy() calls copy everthing from just beyond the 
// character that satisfies the case, and then the tmp_file is truncated 
// at that point with a ’\0’. 
state = SUFFIX; 
do 
{ 
switch (tmp file[pos] ) 
{ 
// a dot only counts in the SUFFIX state 
if (state == SUFFIX) 
{ 


case 


strncpy (suffix, étmp file[pos + 1],SIZE_ SUFFIX); 
tmp file[{pos + 1] = ‘\0'; 
state = NAME; 
} 
else 
if (state == NAME) 
// this means we’ve got two or more dots in a name 
// which is illegal. flag it as an invalid char 
condition i= FLAG NAME << 4; 
break; 
case '\\': 
if ((state == SUFFIX) i: 
1 


(state == NAME) ) 


strncpy (name, &tmp file[pos + 1],SIZE_NAME); 


tip file[pos + 1] = *\0"; 
state = PREFIX; 

} 

break; 


if ((state == 
{ 


case 
SUFFIX) 11 (state == NAME) ) 
strncpy (name, &tmp file[pos + 1],SIZE NAME); 
tmp file[pos + 1] = ’\0'; 
state = DEVICE; 
} 
else 
if (state == PREFIX) 
{ 
strncpy (tmp prefix,é&tmp_file[pos + 1],SIZ2E_ PREFIX) ; 
tmp file[pos + 1] = '\0'; 
state = DEVICE; 


mharartrer 
CllaLavLet 


// go to next 


(Listing continued on page 98) 
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of i 


Uncompromising 





No Surveys. 


No Interviews. 
No Jokes. 


(well, sometimes...) 


The Users Journal" 














es the best tool for C i halla Period. 

YES — I want the best C difevination Now! isso: 

_} 1 year ($28) — Save 49% off our newsstand rate! 

LJ} 2 years ($52) (} Bill me The eels Journal 
_J 3 years ($75) [_} Payment Enclosed 2601 Iowa 





Lawrence, KS 66047 


Name 











Company 
Address d For Even Faster Service: 
City/ State/ Zip CALL (913) 841-1631 





(VISA/MC) 





Foreign subscribers: 1 yr — $46 US; 2 yr. — $86 US; 3 yr. — $124 US 
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QNX’ Users! 


Call for catalogue of QNX and 
QNX support software & hardware 


@ All Quantum Products 
@ Dynaterm Terminals 
@ Ethernet: TCP/IP for QNX 

@® LispC 

@ Compilers: C, C86, FTN77+, BASIC 
@ Menu Packages 

@ Development tools including CShell 
@ QFAX, BTREE Il, Bernoulli Drivers 
® QNX terminal emulation for DOS 

@ ScreenBlox-ReportBlox 





*QNX is a registered trademark of 
Quantum Software Systems, Ltd. 


T&T Computer Products, Inc. 
QNX Specialists 
P.O. Box 14010 
Tulsa, OK 74159 U.S.A. 
918/663-1879 FAX 918/663-4054 





MC/VISA 
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ReGen ee Ee ee ge ge ee eg ee ES eae te ee ee shee ene my ws 


C++ FILE OBJECTS 


whatever state we ended up in 


F 11 (state == NAME) ) 
,tmp file,SIZE NAME) ; 
7 7 /* This constructor creates an empty object suitabl 
PREFIX) File Spec::File Spec (void) 
tmp prefix,tmp_file,SIZE PREFIX); { 
t both ends of device, name, and suffix 
strncpy (device,tmp_file,SIZE DEVICE); used later on this guarantees these three 
// validate the device - levice[0] = device[SIZE DEVICE] = '\0’; 
device[1] = ':’; name [0] = name[SIZE NAME] = '\0’; 
device[2] = ’\0'; suffix[0] = suffix[SIZE SUFFIX] = '\0'; 
if (device[0] prefix = NULL; 
condition | prefix length = 0; 
else request = NULL; 
{ request length = 0; 
// make the device upper-case for simplicity’s sake ] condition = INCOMPLETE; 
device[0] = toupper(device[0]); } 
if (device[0] < ‘A’ 1: device[0] > '2’) /* The so-called "copy" constructor actually calls a 
condition := FLAG DEVICE << 4; doing some preliminary initialization. 
} “a 
// use the existing change prefix() method to create the prefix and File Spec::File Spec(const File Spec& original) 
// validate it fo 7 ~ 
change prefix(tmp prefix); 
delete[SIZE PREFIX + 1] tmp prefix; 
// now validate the name 
if (name[0] == ’\0’) 
condition i= FLAG NAME; 
else 
{ /* The destructor simply releases the memory, i 
if (name [0] and request. 


// everthing’s i 





prefix = NULL; 
prefix length = 0; 
request = NULL; 
request_length = 0; 
copy (original); 


*/ 
condition := FLAG NAME; File Spec:: File Spec (void) 
name[0] = '\0’'; { ~ 
if (prefix != NULL) 
{ 
(check_chars (name, FLAG_NAME) ) delete(prefix length] prefix; 
prefix = NULL; 


// ' me HAS to end with a dot. 
// as far as we’re concerned name W prefix length = 0; 


1 = strlen(name) ; 

, i f= / of 
if (name [i 1]: od (request != NULL) 

delete[request length] request; 
request = NULL; 

request length = 0; 


(Listing continued on page 100) 





HARVARD SOFTWORKS 


NUMBER ONE IN FORTH INNOVATION 


(513) 748-0390 


MEET THAT DEADLINE !!! 


«Combine the raw power of extensible 
languages with the convenience of 
carefully implemented functions! 

eExecute faster than optimized C! 

¢Compile 40,000 lines per minute! 

¢Stay totally interactive, even while 
compiling! 

*Program at any level of abstraction 
from machine code thru application 
specific language with equal ease and 
efficiency! 

«Modify routines without recompiling! 

*Use source code for 2500 functions! 

¢Use data structures, control structures, 
and interface protocols from any other 
language! 

eImplement that borrowed feature, often 
more efficiently than in its source! 

eUse an architecture that supports very 
small programs or full megabyte ones 
with a single version! 

eForget chaotic syntax requirements! 

¢Use subroutine libraries written for 
other languages! More efficiently! 

eOutproduce experienced programmers 
stuck using conventional languages! 


HS/FORTH with FOOPS - The only 


full multiple inheritance object 
oriented language under MSDOS! 
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WAKE UP!!! 
Forth is no longer a language that tempts 
programmers with "great expectations’, 
then frustrates them with the need to 
reinvent simple tools expected in any 
commercial language. 


HS/FORTH Meets Your Needs! 


We don’t shortchange you with promises. 
We provide implemented functions to help 
you complete your application quickly. 


Don’t judge Forth by public domain 
products or ones from vendors primarily 
interested in consulting - they profit from 
not providing needed tools! Public domain 
versions are cheap - if your time is 
worthless. Useful only in learning Forth’s 
basics, they fail at showing its true 
potential. Not to mention being s-l-o-w. 


You can’t add extensibility to fossilized 
compilers. You can easily add features 
from any other language to HS/FORTH. 
Try our full modifiable multiple 
inheritance OOPs extension or our 
Fortran translator & mathpak! 


HS/FORTH has more features and 


libraries than we can possibly describe 
here. Please ask for our brochure! 
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P.O. Box 69, Springboro, OH 45066 


HS/FORTH uses MSDOS or PCDOS. 
Each level includes features of lower 
ones. Level upgrades: $25. plus price 
difference. Sources in ordinary text files. 


STUDENT LEVEL $145. 
text & scaled/clipped graphic windows, 
ellipses, splines, arcs, fills, turtles; 
powerful parsing, formatting, file and 
device I/O; shells; interrupt handlers 

PERSONAL LEVEL $245. 
software floating point, trig, transcen- 
dental, quad & scaled integer, automatic 
optimizer for assembly like performance. 

PROFESSIONAL LEVEL $395. 
hardware floating point, turnkey, seal, 
Rosetta Stone Dynamic Linker, 
round robin & time slice multitaskers, 
dynamic string manager, file blocks, 
sector mapped blocks, assemblers 

PRODUCTION LEVEL $495. 
Metacompiler: DOS/ROM/direct/indirect 
C data structures & struct compiler, 
TurboWindow-C graphics library, 


Options: 

FOOPS+ with multiple inheritance$ 75. 
286FORTH or 386FORTH $295. 
TurboWindow-C (Metagraphics) $ 99. 
BTRIEVE for HS/FORTH (Novell) $199. 
ROMULUS HS/FORTH from ROMS 95. 
FFORTRAN translator/mathpak §$ 75. 
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C CODE FOR THE PC 


source code, of course 


GraphiC 5.0 (high-resolution, DISSPLA-style scientific plots in color & hardcopy) ..... 2... . ee ee $325 
rses (Aspen, Software, System V compatible, extensive documentation) ...... 1... $290 
C-Data Manager (object-oriented data management, persistent objects from runtime definitions, network and entity models) ....... $250 
Turbo TRxX eee 2.0; HP, PS, dot drivers; &M fonts; Latex; MetaPom)) . «2s 644 «+ % HM we Se He ew BW @ Bee Se $250 
db_File & db_Retrieve by Raima (B-tree and network database with SQL query and report writer; multi-user $475)... . 2... 2.02. . $245 
Greenleaf Communications Library (interrupt mode, modem control, XON-XOFF; specify compiler) ................. $225 
CDirect (multi-user hashed file manager; variable length fields, binary or ASCII data, alternate keys). . . ...........2.22. $210 
SilverComm (complete asynchronous communications library Se, we we eS ee eee GS le EE mk ee me ew ww ES $210 
Install 2.3 wae installation program; user-selected partial installation; CRC checking) ...............-. 2.2.88. $195 
Wendin-DOS Plus (self-bootable, multitasking, multiuser MS-DOS replacement; includes XTC editor) . . 2... 2... ee ee, $180 
QuickGeometry Library (large collection of mathematics, graphics, display & DXF subroutines for CAD/CAM/CAE/CNC) ........ $170 
CBTree (B-+tree IS driver, multiple vaniableteneth keys)... <<. 2 eS 4 ee Ue ee ee ee ee Pe ee $165 
Updated! Turbo G Graphics Library (all popular adapters, hidden lineremoval) . 2... . . $165 
TurboGeometry (library of routines for computational geometry, Version 3.0). 2. 2. 6 6 1 ee $160 
WKS Library Version 2.01 (C program interface to Lotus 1-2-3, dBase, Supercalc 4, Quatro, & Clipper) .. 2... 1... 2 ee ee ee $155 
NEW! C Generator (generates C code to read & write file records defined with C structure syntax) 2. 2... ee ee ee $150 
Cephes Mathematical Library (over 100 high-quality, double-precision scientificfunctions) . . . 6. 6 6 ee ee $150 
ME Version 2.1 (programmer’s editor with C-like macro language by Magma Software; Version 1.31 still$75) .. 2... 2.2... 04. $140 
Vmem/C (virtual memory manager; least-recently used pager; dynamic expansion of swapfile) ....... 2... ee ee ee ee $140 
C++ Rogue Wave Vector & Matrix Classes (inc. C-+--+ overloadings for standard operators, matrix inversion & FFT; Zortech or GNU CH). .. « SID 
Power Search by Blaise Computing (regular-expression compiler; generates machine code on the fly)... . . 2... 2. eee ee eee $120 
TE Editor Developer’s Kit (full screen editor, undo command, multiple windows)... 2 6 1 6 ee ee ee $115 
NEW! Hold Everything (spawn new programs; swap parent to EMS or disk; handles video, interrupts, & environment; returns errorlevel) . . . . . $105 
B Strings dynamic string handling; cut, copy, paste, search, user input, etc.; non-fragmenting memory management) ........... $105 
NEW! The Input Processor (recognize patterns in program input using Aho & Corasick string matching algorithm). .............. $105 
Minx rating System (Version 1.3; U*+x-like operating system, includes cage ee eee ee ee ee ee ae ee ee $105 
PC/IP (eMU/Mi TCP/IP for PCs; Ethernet, Appletalk & NETBIOS drivers, RVD, gateways) . . 2. 2... 1 ee ee ee ee ee $100 
B-Tree Library & ISAM Driver (file system utilities by Softfocus) . . . 2 6. 6 ee ee $100 
NEW! Disassembler (8086/80286/80386/80C186 with 80287/80387/80C187 NPX) «ww ew $90 
QC88 C compiler (ASM output, small model, no longs, floats or bit fields, 80+ function library)... 2... ee ee ee ee $90 
Booter Toolkit (floppy disk bootstrap routines, DOS file system, light-weight multitasking, windows, fast memory management) ...... $85 
NEW! C+-4 Object Library (virtual windows, I/O, lists, file free space management, keyed ISAM file /O) . . . .. ee ee ee ee es $85 
Otter 1.0 (beautiful theorem-prover by Bill McCune; includes manual & two books by Wos; complete starterkit). . . 2... . - 1 ee $80 
JATE Async Terminal Emulator Ceeaha file transfer and menu subsystem) . . 2. 1 1 1 we ee $80 
PowerSTOR (upto a gigabyte of heap space on extended memory, expanded memory, and/orharddisk) ...... 2... 2 ee eee $80 
MultiDOS Plus (DOS-based multitasking, intertask messaging, semaphores) . . . 2... 1 eee ee $80 
HY-PHEN-EX ta hyphenator for American English with over 4,800 rules) ©. 6 6 6 6 ee ee $75 
Make (macros, all languages, built-in rules) © © 6 6 6 6 ee ee $75 
evalQ (C function to evaluate ASCII infix expression string; 17 built-infunctions) ©... . 6. ee ee ee $75 
XT BIOS Kit (roll your own BIOS with this complete set of basic input/output functions for XT8) . . . . ee ee ee ee $75 
Symtab/Ptree eee symbol table/parse tree construction and management package; specify Symtabor Ptree) ......... $75 
NEW! XSPAWN (swap parent process to expanded memory or disk before running child) . 2 2 6 6 ee ee $70 
Professional C Windows (lean & mean window and keyboard handler)... ....... eee ROR eee ae we see ee $70 
Heap Expander (virtual memory eye oes using expanded memory, extended memory, and diskspace)... . 6 ee eee ee es $65 
NEW! Foundations-1 C++ Class Library (ASCII record I/O, bit arrays, exception handling, B-tree, persistent objects) . . ©... / ee 1 ee $60 
Quincy (interactive Cinterpreter) ......... 2 fhe hee EO ERS HS Ye eee ee a ee Ok yo $60 
Coder’s Prolog (Version 3.0; inference engine for use with C programs) . . we we ee ee $60 
Async-Termio (Unix V com atible serial interface for MS-DOS; stty, ioctl, SIGINE GC). «a4 6 dbo SRO SHEE EA we Se wy $55 
Upgrade! Pascal P-Code Compiler & Interpreter (Level 0 ISO standard Pascal with some Level l features) . ©... - ee ee eee ee $50 
Backup & Restore Utility by Blake McBride Ge volumes, file compression & encryption) . . . . -/ . ee ee ee .. . $50 
Floppy TAR (TAR backup and restore on MS-DOS devices; direct access to non-standard devices) . 6. / - / ee ee ee ee $50 
SuperGrep (exceptionally fast, revolutionary text searching algorithm; also searches sub-directories) .. 2... 2. 2 2 ee ee eee eee $50 
OBJASM (convert .obj files to .asm files; output is MASM compatible) 2 ©. 1. ee $50 
CLIPS (rule-based expert system generator, Version 4.3; advanced manuals available) .....-...-.- - SO oS Oe Cae ee A $50 
PCHRT (40 functions to manage multiple microsecond timers; generate precision delays; insert timers on any MUICHAIPl) *« w » & & ee & 4 $45 
Kier DateLib (all kinds of date manipulation; translation, validation, formatting, & arithmetic) ...... Le St ck ee we ee Oe eS $45 
C++ FlexList (initialize FlexList by constructor to hold any data type; access any FlexList as stack, queue or array with 30 methods) ..< 6 «5s «+ $45 
BOLS Data Utilities (Sort/Merge/Select; five easy-to-use ASCII file management routines)... 6 6 1 1 ee $40 
DES Encryption & Decryption (2500 bits/second on 4.77 MHz PC for on-the-fly encryption at 2400 baud). . . . 2. 2... eee ee es $40 
FlexList (doubly-linked lists of arbitrary data with multiple access methods)... - / ee ee ee $40 
Virtual Memory Manager by Blake McBride (LRU pager, dynamic swap file, image save/restore) 2. 6 6 6 ee ee ee $40 
Heap I/O (treat all or part of a disk file as heap storage)... - eee $40 
C++ NIH Class Library (collection of basic C+-+ classes by Keith Gorlen; V2.204 (V3.0 Pre-release); ses C+ K2.0) 2 2. 4 es wee 4 % » « «» + $35 
Bison & BYACC (YACC workalike parser generators; documentation; no restrictions on use of BYACC output) . . 2... 2 7 ee ees $35 
ee XINU operating system for ay Se de eS _# #4 3% ¢ #2 ae are Se ee we ie oe eed EE GS $35 
RXC & EGREP (Regular Expression eer hae and Pattern Matching; RXC makes finite state machine from regular expression) . « « «+ $35 
NEW! CALC_MAT (input, output & in-core handling of variable dimension matrices of floats and text) . ..... . ier ae. 2. $30 
REGxX Plus (search and replace string manipulation routines based on regular expressions) . . ©. / eee ee ee $30 
CCALC (handy extended-precision calculator; real and complex models; many built-infunctions) . . 2... 2 6 ee ee ee ee $30 
GNU Awk & Diff for PC (both programs in one package) .. ..-.- +. - Boa 2 Se, oR eee a8 ‘se 4 oh oe eS SF ES $30 
6-Pack of Editors (baker’s half-dozen public domain editors for use, study & hacking; includes microEmacs 3.10 & Stevie,aviclone) ... . $30 
Crunch Pack (14 file compression & expansion programs) .....-+-+....., 2 £2 oa eee EG wD oi & a ce 2 Se eS $30 
PC-MAIL (UUCP mailer by Wietse Z. Venema; send, receive, and saat UUCP mail). © 6 6 6 ee $25 
FLEX (fast lexical analyzer generator, new, improved LEX; official BSD Version 2.1 WIAOCS): a. a we www Se de eG ee ee ee $25 
List-Pac (C functions for lists, stacks, and queues) . . . 1 6 ee ee ee eee ee ee ee ae ee EG ee $25 
C++ Using C++ Library (the code from the book by Bruce Eckel and then some; Zortech 2.0 compatible) . . . 2... ee ee ee ee ee $25 
AGS (63000 cross-assemblen) “sss. @ 6 6 ee ee oe ee Eee EE eS oe ee Pe $20 
XLT Macro Processor (general purpose text translator)... 6 ee $20 
Data 
Moby Part-of-Speech (200,000 words and phrases described by prioritized part(s)-of-speech) 2... 6 ee ee es ee 
Moby Hyphenator (150,000 words fully hyphenated/syllabified) <2 « « «4% + be eR He Ee eR eH we eS oe 
Moby Words (500,000 words & phrases, 9,000 stars, 15,000 names) ee, oe ei oe ER RF Ee ee ES - 
Smithsonian Astronomical Observatory Subset (right ascension, declination, & magnitude of 258,997 stars) . ©. - - 6 ee ee es $ 
U. S. Cities (names & longitude/latitude of 32,000 U.S. cities and 6,000 state boundary points). ©. - 6 6 6 ee 4 
The World Digitized (100,000 longitude/latitude of world country boundaries) ©... ee ee es oe 6 eo mH ‘27 =, 
KST Fonts 13,200 characters in 139 mixed fonts: specify TEX or bitmapformat) ©... ee ee eo 
Interactive Computer Ephemerii (high-precision moon, sun, planet & star positions; USNO (no source) & Downey 4.8 (Csource)) . . . . . 
Cheaper! Dictionary Words (234,932 words in alphabetical order, no definitions) ©. 6 6 6 ee 
The Austin Code Works ee fae ae 
11100 Leafwood Lane E Ae Je bs 
Austin, Teras 78750-3409 USA -mail: info@acw.com 
Free surface shipping for cash in advance For delivery in Texas add 7% MasterCard/VISA 
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The Best Lint Just Got Better 


PC-lint is a C source code analysis tool. It will check code 
more thoroughly than a C compiler and, because it looks 

across multiple modules, it enjoys a perspective that your 
compiler doesn’t have. 


Control your development time and cost. Find C source 
code errors before they find you. 


Over 270 error messages. More than 90 options for com- 
plete customization. Suppress error messages, locally or 
globally, by symbol name, by message number, by filename, 
etc. Easy to Use - If you know C you already know how to 
use PC-lint. Check for portability problems. Alter size of 
scalars. Adjust format of error messages. Automatically 
generate ANSI prototypes for your K&R functions. 


New Features in Version 4.0 


e Lint Object Modules - incremental linting - big linting. 


e Weak Definial Checking - macros, structs, enums, 
typedef’s and declarations not used globally and locally. 
Header files not used. Externals that can be made static. 
Declarations that can be moved from headers. etc. 


e Library Headers - avoid redundant prototype processing. - 


e Over 70 new messages and 30 new options, including 
identifier truncation clashes. 


e New "Elective Notes" message category. 
e Unix lint compatibility 


Mainframe and Mini Programmers 


Get FlexeLint 4.0 (formerly Generic Lint) in shrouded 
source form for VAX/VMS, Unix, IBM VM/MVS, ONX 
OS-9, DG AOS/VS, etc. Requires only K&R C to compile 
but supports ANSI. Pricing starts at $798. Call for details. 





9 
Gimpel Software 
3207 Hogarth Lane Collegeville PA 19426 
(215) 584-4261 - CALL TODAY 
(215)584-4266 - FAX 
PC-lint is only $139 - Specify MS-DOS or OS/2 

30 Day Money-back Guarantee 


Quantity and educational discounts available. PA add 6% sales tax. 
Outside USA add $20. 


PC-lint, FlexeLint and Generic Lint are trademarks of Gimpel Software. 
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C++ FILE OBJECTS 


Listing Two (Listing continued, text begins on page 50.) 


/* Tell ‘em how we’re doing */ 
unsigned int File Spec::status (void) 


{ 
} 


/* This method’s purpose is to return a string containing a complete file 
specification string for use by clients. 


* 

/ 

char *File Spec::filespec (void) 

{ 
int length; 

// first calculate the length of the file specification 
length = strlen(device) ; 
length += strlen(prefix); 
length += strlen(name) ; 
// + 2 to allow for the NUL-terminator and the colon 
length += strlen(suffix) + 2; 
// i1£ request isn’t already long enough then de-allocate the current 
// pointer and allocate a new one 
if (request length < length) 
if (!realloc(&request,&request_ length, length) ) 
return(NULL); 
// build the string 
strcepy (request, device) ; 
if (prefix != NULL) 
strcat (request, prefix); 
strcat (request, name) ; 
strceat (request, suffix); 
return (request) ; 

} 

/* get device(), get _prefix(), get_name(), and get_suffix() are all essen- 
tialy alike. if the request string isn’t long enough then it is re- 
allocated, then the attribute that was requested is copied into request. 

* 

/ 
char *File Speci +get device(void) 


{ 
errno = 0; 
if (request length < SIZE DEVICE + 1) 
if (!realloc(é&request, &request_length, SIZE DEVICE + 1)) 
return (NULL) ; 
strcpy (request, device) ; 
return (request) ; 


/* Returning the prefix is a bit more complicated than the other get 
routines. 

7, 

char 


{ 


*File Spec::get_prefix(void) 


errno = 0; 
if (prefix length) 
{ 

if (request_length < prefix length) 

if (!realloc(&request, &request_length, prefix length) ) 
return (NULL); 

strcpy (request, prefix) ; 
} 
else 
// even if the prefix is NULL we promised to return something. 
// a string 1 character long consisting of a NUL-terminator 


{ 


Here, 


if (request_length == 0) 
if (realloc(é&request, &request_ length, 1)) 
*request = ’\0'; 
} 
return (request) ; 
} 
[ke RK KK KK RK OK KR RR OR RK kK Rk KR KR kK RK kk KR kK kK kK kk OK 
char *File Spec: :get_name (void) 
{ 
errno = 0; 
if (request_length < SIZE NAME + 1) 
if (!realloc(&request, &request_length, SIZE NAME + 1)) 
return (NULL) ; 
strcpy (request, name) ; 
return (request) ; 
} 
[ee KK kK KK KK RK kk KK KK KR KR KK kK KK KR Kk kk kk kk Kk OK 
char *Vile Spec::get Suffix (void) 
{ 
errno = 0; 
if (request_length < SIZE SUFFIX + 1) 
if (!realloc(&request, &érequest_length,SIZE SUFFIX + 1)) 
return (NULL) ; 
strcpy (request, suffix); 
return (request) ; 


[eee KR RK KR RR RRR ROR R OR OR ROR Kk RR ROR RRR RR RR RRR 
as with the get_XXXX() methods above, change. device(), change prefix(), 
change name(), and change suffix() are basically the same. if the 
current condition is "read-only" then return a FALSE. if a NULL string 
is passed (note the default) the current object is truncated and the 
corresponding incomplete flag is set. otherwise SIZE n characters are 
copied and the standard validity checks are made. 

KR OR KOK 8 KR Kw KR eH KR KR Ow KR KR KR KL OK KR KOR KOR RK KR HR FE kK KK KK Kk KK K/ 


bool 


if (condition & READ ONLY) 
return (FALSE); 


if (string == NULL \: *string == '\0’) 


TITAS 


strncpy (device, string, SIZE DEVICE) ; 


device[0] = toupper(device[0]); 
device[1l] = ':'; 
device[2] = '\0'; 

[ 


if (device[0] < ‘A’ 
{ 


1: device[0] > '2’) 


condition := FLAG DEVICE << 4; 
return (FALSE) ; 
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} 
else 
condition &= (FLAG DEVICE << 4); 
condition &= ~FLAG DEVICE; 
return (TRUE) ; 7 
} 


/* get _prefix(), like change prefix(), is somewhat more complicated than the 
other change routines 

fi 

bool File Spec::change_prefix(const char *string) 


{ 
int new length; 
if (condition & READ ONLY) 
return (FALSE) ; 


if (string == NULL 1: *string == ’\0’) 
return(clear attribute (prefix,FLAG PREFIX) ); 
errno = 0; 


// get the size of the new prefix and if the existing prefix isn’t long 
// enough then re-allocate it 
new length = strlen(string); 
oa (new_length > SIZE PREFIX) 
new length = SIZE PREFIX; 
if (prefix length < new_length + 1) 
if (!realloc(&prefix, &prefix length,new length + 1)) 
return (FALSE) ; ~ 7 
// copy in the new string and validate it. 
strncpy (prefix,string,new length) ; 
prefix[new_ length] = VO: 
if (check _chars(prefix,FLAG PREFIX) == FALSE) 
return (FALSE) ; 7 
return (check prefix()); 
dedi ae ee Pe eh eS ok 2 EM GE 
bool File Spec::change_name(const char *string) 
{ 
int a 
if (condition & READ ONLY) 
return(FALSE); __ 
if (string == NULL :: *string == ’\0’) 
return(clear_ attribute (name, FLAG NAME) ); 
1 = 0; 
while (string[i]) 
{ 
if (string[i] == '.’) 
{ 
change suffix(&string[i + 1]); 
if (i == 0) 
{ 
name[0] = ’\0'; 
condition := FLAG NAME; 
condition &= ~(FLAG_NAME << 4); 
return (FALSE) ; 
} 
++1; 
break; 
} 
if (string[i] == ’:' ii string[i] == *\\") 
{ 
condition := FLAG NAME << 4; 
return (FALSE) ; 
} 
if (++i == SIZE NAME) 
break; 
} 
strncpy (name, string,1); 
name[i] = '\0’; 
if (check _chars(name,FLAG NAME) == FALSE) 
return (FALSE) ; 
i = strlen(name) ; 
// as far as we're concerned name HAS to end with a dot. 
if (name[i - 1] !='’.’) 


if (i == SIZE NAME) 

i = SIZE NAME - 1 
name[it+] =/'.’; 
name[i] = ’\0’'; 


condition &= “FLAG NAME; 
return (TRUE) ; 
} 


{REEL EEMCA EE S EEEAREESEAEEE TS RR EES EES 
bool File Spec::change_suffix(const char *string) 
{ 
if (condition & READ ONLY) 
return (FALSE) ; 
if (string == NULL) 


clear attribute (suffix,FLAG SUFFIX); 
condition &= ~FLAG SUFFIX; // unset the incomplete suffix flag 


if (*string == ’."’) 


++string; 
strncpy (suffix, string, SIZE SUFFIX); 
} 
else 
strncpy (suffix, string, SIZE_SUFFIX); 
if (check_ chars (suffix,FLAG SUFFIX) == FALSE) 
return (FALSE) ; 
condition &= “FLAG SUFFIX; 
return (TRUE) ; 
/* This method determines whether or not the prefix is complete. x} 
bool File Spec::check_prefix (void) 
{ 


(Listing continued on page 102) 
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Gorn aera eon rane penne men tone fe 
The MEWEL Window System is the only text mode 
window library which lets you build SAA compliant apps 
which have the look and feel of a MS Windows and PM 
program. And lets you port your code easily between text 
mode and Windows! 


fea ciaba mena 














Find out why customers like Microsoft, IBM, GE, GTE, 
Whitewater, Saros, AT&T, American Airlines, DCA, and 
hundreds others have purchased MEWEL. 





= Supports all SAA/Windows controls 
= Scrollbars, butons, dizlog boxes, listboxes, multiline 
edit fields, combo boxes, and user-defined control classes. 





= Compatibility with the MS Windows API means easy 
porting between text mode, Windows, and PM. Most 
Windows messages supported (including Windows 3.0). 





= Multi-level, hierarchical pulldown menus, with full 
mouse support. 















= The most sophisticated window library in the market 
today. Complex clipping of children and sibling windows. 


= Place dialog boxes, menus, and strings in resource files. 


"The text mode application has the same look and feel as a Windows 
application, and that is not a trivial thing to do." (PC Week on MEWEL) 





MEWEL 3.0 libs (Microsoft or Turbo C) $195 


MEWEL 3.0 with full source code $495 
Please add $5 for shipping, $20 outside the US. 
Specify DOS or OS/2 Protected Mode version. 


15 Bodwell Terrace 

















Millburn, NJ 07041 
MAGMA (201) 912-0192 (voice) 
SOFTWARE (201) 912-0668 (BBS) 


Demos and lots of info are 


SYSTEMS on the BBS! 


indows is a trademark on Microsoft Corp. 
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How to be in two places at Listing Two (Listing continued, text begins on page 50.) 
e // if the lst character isn’t a ’\’ then the prefix is relative to the 
the same time... Coe es 


{ 
condition := FLAG PREFIX; 


If youre a manager product design and de- eae baal 
responsible for de- velopment, conversions i = 0; 
a : : ; // this loop checks for the presence of a dot followed by another dot 
Signing, developing and special projects. Our // or a dot followed by a backslash. either one indicates the prefix 
: . ; . ; lati h h ki di t ‘ 
and introducing a new expertise includes Windows, i a aml 
; : ‘ 
software product or sys OS/2 PM, DOS and Mac en eee - 
tem, then you know the intosh. Weve developed Pet ee ey eee ee 
feeling. The demands of \b many award-winning condition != FLAG PREFIX; 
. (FALSE) ; 
software development products for our clients. oo 
make you wish you But don’t take our a Sea aaa. 
i } 
could be in two places word for it, send Vax Geta Mev wi es 
at the same time. for our portfolio and Ap ee) 8) 
We're an established our free booklet today, prefix[it+] = '\\'; 
; ; prefix{i] = '\0'; 
pile ses How to Select Santen &= “FLAG PREFIX; 
rm with a 7 year history | anil eae pee 
of success. Our large, experi- SECT OTT CLE Tee eT Cee ee ee eee Cee ee, 
enced software engineering Software Development void File Spec::read_only (bool flag) 
staff is available for new Companies. aie Gaee 
condition := READ ONLY; 
else 


condition &= “READ ONLY; 


| 1 } 
TPS Turning Point /* This method actually attempts to complete a file specification. */ 


. O f t Ware a File Spec::complete (void) 
230 Western Ave., Boston, MA 02134 ee 
617-782-4877 


if (condition & READ ONLY) 
return (FALSE) ; 
// an invalid character in any of the components is an automatic failure 
if (condition & INVALID CHAR) 
return (FALSE) ; 
// no name is also an automatic failure 
if (condition & FLAG NAME) 
return (FALSE) ; 
THE ULTIMATE CAD/CAM ENGINE // i1£ no device specified then get the current drive 
if (condition & FLAG DEVICE) 
{ 





drive = 1l_get_drive(); 


device[0] = drive + ‘A’; 
device[{1] = ':’'; 
device[2] = '\0'; 


condition &= “FLAG DEVICE; 
} 
// if the prefix isn’t complete call parse prefix () 
if (condition & FLAG PREFIX) 
if (parse prefix() == FALSE) 
return (FALSE) ; 
// everything’s alright so give the client the go-ahead 
condition = 0; 
return (TRUE) ; 
} 
/* Looks rather unimpressive doesn’t it. */ 
File Spec File Spec::operator=(const File Spec& original) 


copy (original) ; 


/* As with the (char *string) constructor above, this routine uses a finite 
state machine to produce a complete path. the existing prefix (if any) 
is processed front to back while the current working directory (cwd) is 
processed back to front. the end result is that the partial prefix is 
appended at the correct point to the cwd. 


ny 
bool File Spec::parse prefix (void) 
{ 
int prefix elem; 
int cwd_elem; 
int state; 
char *cwd; 
errno = 0; 
// set the defaults 
if ((cwd = new char[SIZE PREFIX + 1]) == NULL) 
la , ; 
Over 300 2D & 3D device independent geometric routines. errno = ENOMEM; 
Surfacing; Spherical & Solid Geometry; Tangents; Curves; Hidden aera 
Line; Polygons; Perspectives; 2D & 3D Clipping; Link List Library & // since the directory returned by 11_get_cwd() doesn’t begin with a 
more. In Cor Pascal, w/source. 400 pg manual. $199.95, Foreign a sh ae ee ee eee 
$225.00. Prices incl S&H. 30 day guarantee. VISA, MC, PO, Chk. cwd[1] = \0'; 


// get the current working directory for the specified drive 
if (1l_get_cwd(device[0] - 64,&cwd[1]) == ERR) 


2116 E. Arapaho Rd. Disk FAX or Phone 


Suite 487 214-423-7288 delete[SIZE PREFIX + 1] cwd; 


t (FALSE) ; 
Richardson, TX 75081 Sof t ware, Toll Free — 


USA Inc. 1-800-635-7760 
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Language 


Al-Expert Systems 

ARITY Combination Pkg 

Exsys Professional 

PC Scheme LISP-by TI 

Turbo Prolog Toolbox 

TURBO PROLOG V2.0.....6.5 110 
VP Expert 


Assemblers 

Advantage Disassembler 
MS Macro Asm 

Turbo Assembler/Debugger 
Visible Computer 80286 


Basic & Addons 


Mo BASIC TO scot ne sb. cde pees 339 
MS QuickBASIC V4.5............ 69 


QuickPak Professional 

Softcode 

True Basic 

Turbo Basic 

C Language-Compilers 

High C-286-by MetaWare 

Instant C/16M 

Lattice C-V6 

Microsoft C 5.1-w/CodeView.... 
Microsoft QuickC w/QASM 

Turbo C-by Borland 

Turbo C Professional 

Watcom C7.0-highly optimized. . .315 


Cobol 


MS Cobol V3.0................ 629 
Microfocus COBOL w/tools. 
Realia COBOL 


Fortran 

FOR__C-FORTRAN ’77 to C 

1/0 Pro-screens 

Lahey FORTRAN F77L 52 
Lahey FORTRAN F77L-EM/16.... 
Lahey Personal FORTRAN 

MS FORTRAN-CodeView 


Modula-2 
Logitech Dev. Sys 
Topspeed 3 pak 
Object-Oriented Programming 
ACTOR 
Whitewater Resource Tool Kit. . 
Guidelines C+ + 
NDPC + + 
Smallitalk/V 
Smalltalk/V 286 
Zortech C+ + 
w/source 
Zortech C+ + Tools V2.0....... 129 
Zortech Dev’t Kit 


Other Languages 

IntegrAda 

Janus Ada 

Meridian Ada Dev’t Kit 
MuLISP-87 

PC/Forth + 

Personal Rexx 

RPG II complete 

Turbo Pascal 

graphics-Menu 

Turbo ASYNCH PLUS 

Turbo Pascal 5.0)... 0. 06 es ee ewes 105 
Turbo Pascal 5.0 Professional... 
Turbo POWER TOOLS PLUS 
Turbo Programmer 


Miscellaneous 


Other Products 
Aspen Korn Shell 
CO/SESSION 
dQuery/Lib 

Link & Locate+ + —ROM MSC. 349 
Math Advantage 
Norton Guides 
OPTune-disk optimizer 
Printware 

Smartern 240 

Tree Diagrammer 
Stingray Clarion Lems 


Debuggers 
386 DEBUG 


Softprobe 86/PX 
Development Tools 
Codesifter 


Opus Make 

Plink 86 Plus-overlays 
PolyMake 

PVCS Corporate 

-RTLINK + -by Pocket Soft 
Source Print 


Case & Prototypes 


Dan Bricklin Demo II 

NEW! Easy Case + 

Instant Replay-Nostradamus. . 
Interactive EasyFlow 11 
MetaDesign by Meta Software. 329 
Pro-C 565 
PROTEUS Prototype System. . 

Show Partner F/X-demos 
Softdemo 

Protoview 


* SAGE PROFESSIONAL EDITOR «x 
Mouse Support, DOS/OS/2, Emulates 
Brief, vi & Emacs, EMS ay see Fully 
Programmable-List 295 Ours 219 
- Back Guarantee 


DBMS 


Database Development 


Clarion Prof 
Clipper S87 
dBASE Ill Plus 


FoxBASE + 
CBOE G0. 96555586 eoeeoeas eases 495 
Fox Pro Lan 


Magic PC 

PARMIION 3.0 occa 6662546 boas 469 
QuickSilver 

R:Base for DOS 


dBASE Library 


PROGID, VG.90 60 es te deaeeadewass 119 


C Communications 

New! C Async Lib. by Silverware. 209 
BreakOut II 99 
C ASYNCH MANAGER 

Essential Communications 
Greenleaf Comm Library 

Greenleaf ViewComm 

Lattice Comm. Library 

Dbase Addons 

AdComm 99 

Alink 

CLEAR + for dBASE 

Dbase Online V2.0............. 125 
dBug-source debugger 

dBX-dBASE III to C 

dClip 

DCS Report Gen 

desQ Clipper Api 

GGE-business graphics 

Documentor 


g 
FLIPPER Graphics Library 
Spellcode 


R&R Code Generator 

R&R Relational Reportwriter 
Scrimage-screen/menu 

SilverComm Library V2 

Silver Paint Library 

Steve Straly’s Tools 

Ul Programmer-Dev’s Version 2.0. .419 


General Addons 


C Tools Plus-V5.0.............. 105 
C Utilities-by Essential 

Greenleaf Functions 

Greenleaf SuperFunctions 


Control Programs 


Concurrent DOS 386 (3users). ne 


OS-Support 

7 DESQview 

4 MS Windows/286 
MS Windows/386 
Development Toolkit 


| 386 Products 


File Management 
Btrieve 

CBTREE 

C-Index for MSC 
C-Index Plus 


ee 
GBC li! PLUS 
db__ FILE RETRIEVE 
Essential B-Tree w/source 


Netware SQL 
pBase 
Turbo Programmer/C 


Graphic Addons 
Essential Graphics 

Graphic C 

Greenleaf Makeform-DOS 

GSS Dev’t Toolkit 

Halo ’88-140 + devices 
Hoops 3D Graphics 
MetaWINDOW/PLUS 

PCX Programmer’s Toolkit 
w/source 

Pizazz Plus 

Turbo Meta-Menu w/source 

Turbo Plus-Nostradamus 


Text Screen Addons 
AEWindows 

C Worthy w/forms 
Curses-by Aspen Scientific 
Greenleaf DataWindows 
Hi-Screen XL 

JAM by JYACC 

VC Screen-painter 

Vitamin C-source, menus 


Utilities 


MACE Utilities 

Norton Utilities Advanced 

PC/Tools Deluxe 5.5............ 115 
Vfeature Deluxe 


V_opt 
XENOCOPY-PC 
XTree Pro 


OS 


OS/2 Software 


Small talk/PM 
VC Screen 
Vitamic C 
Xtrieve Plus 
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NetWare 
Supervisor’ s 
Guide 


by John T. McCann 
with Adam T. Ruef 
and 
Steven L. 
Guengerich 





NetWare Supervisor’s 
Guide was written spe- 
cifically for LAN admin- 
istrators, installers, 
consultants, and other 
professionals having 
direct contact with LAN 
Operating systems. 
Contained are numerous 
examples which include 
understanding and using 
NetWare’s undocu- 
mented commands and 
utilities, implementing 
system fault tolerant 
LANs, improving net- 
work performance, 
preparations for convert- 
ing to new generations 
of NetWare, and more! 


Book Only $29.95 
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Fractal 
Programming 


in Turbo Pascal 





by Roger T. Stevens 


Finally, a comprehensive 
how-to book written for 
Turbo Pascal programmers 
who want to investigate 
fractals. This book devel- 
ops readers’ understand- 
ing of the many different 
types of fractal curves 
while developing com- 
puter programs to gener- 
ate these curves. Over 100 
black and white and 32 
full color fractals are 
illustrated throughout the 
book. All source code to 
reproduce the fractals is 
available on disk in MS- 
DOS format. Requires a 
PC or clone with EGA or 
VGA, color monitor, and 
Turbo Pascal 4.0 or better. 


Book/Disk (MS-DOS) 
$39.95 
$29.95 


Book Only 


BJECT ORIENT ®.D 





= PASCAL 





M&T BOOKS 





Object-Oriented 
urbo Pascal 





by Alex Lane 


This new book connects 
programmers with object- 
oriented techniques and 
teaches them how to take 
full advantage of the 
object-oriented program- 
ming; an introduction to 
objects; explanations of 
object-oriented program- 
ming concepts, such as 
inheritance and polymor- 
phism, instructions on 
how to develop applica- 
tions using object-oriented 
Turbo Pascal, and much 
more. Source code 
available on disk in MS- 
DOS format. 


Book/Disk (MS-DOS) 
$36.95 


Book Only $26.95 
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Object- -Oriented 
Programming for 
Presentation 


Manager 





by William G. Wong 


Here is a book that is 
specifically geared towards 
programmers and develop- 
ers interested in OS/2 
Presentation Manager as 
well as DOS programmers 
who are just beginning to 
explore OOP and PM. 
Provided is a thorough 
explanation of how OS/2, 
Presentation Manager, and 
Object-Oriented Program- 
ming work together and 
how they can be used to 
develop PM applications 
more efficiently. Topics 
covered include an over- 
view of PM and OOP, 
languages and techniques, 
developing PM applications 
using C and OOP tech- 
niques, and more! 


Book/Disk (MS-DOS) 
$39.95 


Book Only $29.95 
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Graphics Programming 
for the 8514/A 





by Jake Richter and Bud Smith 


Graphics Programming for the 
8514/A contains all the information 
you need to program IBM’s 8514/A 
Graphics Adapter. Unveiled here are 
the secrets behind this new high- 
resolution graphics standard. 
Through step-by-step tutorials and 
sample programs, you'll learn how to 


program the 8514/A to create impres- 


sive PC display graphics. You also 
get the details on programming both 
the Adapter Interface and 8514/A 
registers. Included are numerous 
illustrations, examples, and code 
samples. All source code is available 
on disk in MS/PC-DOS format. 


Book/Disk (MS-DOS) $39.95 
Book Only $29.95 
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C++ 
and Applications 





by Scott Robert Ladd 


For proficient C programmers, this 
book is designed to be to the practi- 
cal uses of the C++ programming 
language. It is a comprehensive 
guide and tutorial, defining object- 
oriented programming terms and 
concepts, as well as elaborating on 
their relationahip to C++. The reader 
can gain hands-on experience 
building basic classes that can be 
used to create applications. Included 
are container, string, complex, and 
display window classes—each with 
different requirements and ap- 
proaches. 


Book/Disk (MS-DOS) 
Book Only 


$39.95 
$29.95 
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SQL and 
Relational Basics 





by Fabian Pascal 


How to apply sound and general 
objective principles to evaluating, 
selecting and using database 
management systems. Misconcep- 
tions about relational data man- 
agement and SQL are addressed 
and corrected. The book concen- 
trates on the practical objectives 
of the relational approach as they 
pertain to the micro environment. 
Users will be able to design and 
correctly implement relational 
databases and applications, and 
work around product deficiencies 
to minimize future maintenance. 


Book Only $28.95 


V4, 


M&T BOOKS 


ORDERING INFORMATION: Return the coupon with your payment to M&T Books, 501 Galveston Drive, 


Redwood City, CA 94063. Or CALL TOLL-FREE 1-800-533-4372 (in CA 1-800-356-2002). FREE SHIPPING on 
domestic orders of $75 or more, foreign orders of $150 or more. 
[_] YES! Please send me the following: 
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Address. esse 
City. 
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| 

| Price 
| 

| 

| State |) er 
| 
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Item # Description 








[_] Check enclosed, payable to M&T Books. 
Charge my [_] VISA JMC [JAmEx 
Card No. 
Subtotal Exp. Date 
CA residents add sales tax % Signature 
Shipping add $3.50 per book ——___ 
TOTAL 
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C++ FILE OBJECTS 


Listing Two (Listing continued, text begins on page 50.) 


} 
// DOS doesn’t append a '\’ either so we will 


cwd_elem = strlen(cwd); 
if (cwd{1] != ’\0’) 
{ 
cwd[cwd_elem] = '\\'; 
cwd[{cwd elem + 1] = '\0'; 
} 
// if there was no prefix, there is now. assign it and return 
if (prefix == NULL) 
{ 
prefix length = SIZE PREFIX + 1; 
prefix = cwd; 
return (TRUE) ; 
} 
prefix elem = 0; 
state = 0; 
do 
{ 
switch (state) 
{ 
case 0: 
if (prefix[prefix_elem] == '.’) 


// a dot means check for another dot or ’\’. goto state 1 


state = 1; 
else 
// DOS would give you a fit over this. since we’re here, 


// check_prefix() found a relative component in the path. 


// however, the initial ’\’ means "Start at the root". 
// so we go to the root by setting cwd_elem to zero and 
// start looking for a dot. 
if (prefix[prefix_elem] == ’\\’) 
{ 
state = 1; 
cwd_elem = 0; 
} 
else 


{ 


// append it to cwd by going to state 3 and backing up 
// so we don't lose it. 

state = 3; 

-<prefix elem) 


} 


// our current character IS a character so get ready to 


break; 
case l: // we have seen a dot (or a ’\’) 
if (prefix(prefix_elem] == ’.’) 
// another dot means go up a directory. enter state 2. 
state = 2; 
else 


// a '\' means stay here. get ready to append to the 

// cwd and enter state 3. 

if (prefix[prefix elem] == ’\\’) 
state = 3; 

else 
// a character here means we just saw something like 
// .S8 - remain in the current directory and pass the 
// buck back to state 0. 


state = 0; 
break; 
case 2: // two (or more) dots in a row 
if (prefix[prefix elem] == ’\\’) 


{ 
if (cwd_elem > 0) 
do 


{ 
--cwd_elem; 
} while (cwd[cwd_elem] != ’\\'); 
} 


else 
// more than two dots in a row. maintain current state 


if (prefix[prefix elem] == ’.’) 


break; 

else 
// this means we're seeing a "..s" type situation. 
// treat it as a "..\s" and back up one so we don’t 


// lose the prefix character. 
—-prefix elem; 
state = 3; 
break; 
case 3: // append the prefix to the cwd 
if (prefix[prefix_ elem] == ’.’) 
// whoops, another dot. go back to state 1 


state = 1; 
else 
// more than one ’\’ in a row. don’t change state. 
if (prefix[prefix elem] == ’\\’) 
break; 7 
else 


// the order of element increments i 
// but remember we’ve been moving in opp 
// directions 
do 
{ 
++cwd_elem; 
cwd[cwd_elem] = prefix[prefix elem]; 
+t+prefix elem; - 
} while (prefix[prefix elem] != ‘\\’); 
++cwd_ elem; 
cwd[cwd_elem] = prefix[prefix elem]; 
x 
break; 
hi 
++prefix elem; 
} while (prefix[(prefix elem]); 
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cwd[t++cwd elem] = ’\0'; 

// it worked! reset the prefix pointer and get out 
delete[prefix length] prefix; 

prefix = cwd; 

prefix length = SIZE PREFIX + 1; 


return (TRUE) ; 
} 


/* This routine checks for valid DOS file name characters. */ 
bool File Spec::check_chars(char *string, unsigned int attrib flag) 
{ 

while (*string) 


{ 
if ((*string < ‘!") . 


(*string == /"') 11 
(*string > ')’ && *string < ‘-’) 1: 
(*string == '//’) i 
(*string > ’9’ && *string < '@’) 
(*string == '[’) «4 
(*string > ‘\\' && *string < **’) 
(*string == ':’)) 

{ 
condition i= attrib flag << 4; 


return (FALSE) ; 
} 
+t+tstring; 
} 
condition &= “(attrib flag << 4); 
return (TRUE) ; 
} 


/* Since two methods (the 2nd constructor and the "=" operator) need to 
make copies of other File Spec instances, this private method is provided 
to avoid duplicating the code. this method is also the main reason for 
making File Spec a friend of itself. 

x 

/ 

void File Spec::copy(const File Specé original) 

{ 
errno = 0; 
strcpy (device, original.device) ; 
if (prefix length < original.prefix_ length) 

if (!realloc(&prefix, prefix length, original.prefix length) ) 
return; 
strcpy (prefix, original.prefix); 
strcepy (name, original.name) ; 
strepy (suffix, original.suffix); 
condition = original.condition; 

} 

/* clear_attribute sets the first element of the attribute it is passed to 
a NUL and then resets the condition flags. 

* 

/ 

bool File Spec::clear_attribute(char *attribute, unsigned int attrib flag) 

if (attribute != NULL) 

*attribute = '\0’'; 
condition := attrib flag; 
condition &= “(attrib flag << 4); 
return (TRUE) ; 

} 


/* realloc() is used by the request and prefix attributes when they’re changed 
to see if they require re-allocating and to handle the re-allocation 
if needed. 

| 

bool File Spec::realloc(char **pointer, int *length, int new length) 

{ 
if (*length) 

delete[*length] *pointer; 
if ((*pointer = new char[new_length]) ==-NULL) 
{ 
*length = 0; 
xpointer = NULL; 
return (FALSE) ; 
} 
*length = new length; 
return (TRUE) ; 


End Listing Two 


Listing Three 


/* FILE.HPP Written by Kevin D. Weeks Released to the Public Domain */ 


#ifndef FILE HPP 
#define FILE HPP 


// prevent multiple #includes 


#include "filespec.hpp" 


// file access mode definitions 
#define F_RDONLY 0x0000 
#define F_WRONLY 0x0001 
#define F RDWR 
#define F_COMPAT 
#define F_DENYALL 0x0010 
#define F_DENYWR 
#define F_DENYRD 
#define F_DENYNO 0x0040 





// flag to determine whether reads and writes have a side-effect on the 
// file pointer 

#define F_ ADVANCE 0x0100 
class File: public File Spec 
ia 


(Listing continued on page 108) 
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GIVE YOUR PROGRAMS 


SOME ROOM FOR IMPROVEMENT 


Derr today need all the 
room they can get. But 
within the confines of 640K, 
space can be hard to come by. 
Even something as essential as 
your make utility can become a 
hindrance due to its large mem- 
ory requirements. If you’re tired 
of running into the 640K wall, 
you need Dr. Switch ™-the 
incredible memory management 
utility that allows you to push 
stand-alone and RAM resident 
programs out of the way while 
you compile, link, and test even 
the largest programs. 


Let nothing stand in 
your way. 

With Dr. Switch you can swap 
the RAM resident programs you 
rely on, to and from expanded 
memory, extended memory or 
hard disk so that you can get on 
with the business at hand. The 
Doctor works lightning-fast on 
everything from on-line help 
systems like the Norton Guides® 
and Peabody® to desktop util- 
ities such as Sidekick®, Lotus 
Metro®, and PC Tools®-not to 
mention terminal emulators like 
DCA’s e78 and IBM’s PC Sup- 
port program. 


Make less of Make. 

Dr. Switch reduces the overhead 
of Microsoft Make and Poly- 
tron’s PolyMake from over 100K 
to a mere 4K, giving you the 
memory you need to run your 
compiler and linker more 


efficiently. So go ahead, swap 
your Make utility out of memory 
while you compile and link—Dr. 
Switch swaps it back, in a flash, 
when you’re done! 


Turn your editor into 

an integrated 
environment. 

You read right. With Dr. Switch, 
you'll be able to compile and 
link directly from your editor. 
And you can feel secure about it 
too! If you run your program and 
it crashes, the Doctor wili return 
you right to the program that you 
started from. 


You’ll hardly know 

it’s there. 

Unlike other programs that claim 
to give you extra memory, but 
actually take up large blocks of 
it themselves, Dr. Switch always 
keeps a low profile. It requires 
less than 4K and can take full 
advantage of any expanded or 
extended memory you have 
available. It’s completely trans- 
parent, requires no setup, and is 
network aware. Like any good 
doctor, it can be called on at any- 
time from anywhere. 


Don’t just take our 

word for it. 

Dr. Switch is the people’s choice: 
“‘Can’t break the 640k barrier, 
work around it with Dr. Switch.” 
PC Magazine, March 28, 1989 
Winner of the 1989 Data Based 
Advisor Readers Choice Award 
for Best Database Utility. 


CIRCLE NO. 407 ON READER SERVICE CARD 


Attention Dbase 
developers 

Our special Dbase DeveloperPak 
includes all the required royalty- 
free runtime modules, so that 
you can include the Dr. Switch 
technology along with the appli- 
cations you distribute. 


With the Doctor on call, 
you’re in control. 

When you’ve got RAM resident 
programs to swap or large appli- 
cations to run, remember—there’s 
nothing like having a doctor in 
the house. 


The Doctor is in. 


CALL AND PLACE 
YOUR ORDER TODAY! 
212-787-6633 


DR. SWITCH 
$59.95' 


DBASE 
DEVELOPERPAK 
$99.95*7 


Black & White International Inc. 
LS.) 


a P.O. Box 1040 — 
ey Planetarium Station 
M7] New York, NY 10024-1040 


Dr. Switch is a trademark of Black & White International, Inc. All others are 
trademarks or registered trademarks of their respective holders. 


*Plus Shipping/Handling: U.S. orders add $6.00. Canadian and Foreign orders 
add $15.00. COD add $3.50. NY residents add sales tax. All payments U.S. 
funds/U.S. Banks only! 


tIncludes royalty-free runtime version. 





C++ FILE OBJECTS 


Listing Three (7ext begins on page 50.) 


// class attributes 


int handle; // DOS file handle 
int open flags; // flags used to open or create 
long file pos; // DOS file position 
long filelength; // length of file 
// public class methods 
public: 


// constructors for file objects 
File (void); 
File(const File Spec& original, bool open flag = FALSE); 
File(const char *name, bool open flag = FALSE); 

// destroy the object 


“File (void); 
bool exists (void); // see if the file exists 
bool create(int mode flags = 2, bool exclusive = TRUE); 
bool open(int mode flags = 2); 
bool close (void); 
unsigned int read(void *buffer, unsigned int size); 
// guarantees to write size bytes or fail 
bool write(const void *buffer, unsigned int size); . 
bool truncate (void); // truncate file at current position 
// guarantees to position file pointer within file or fail 
bool set position(long new file pos); 
long get_position(void); 
long size(void); 
bool rename(const char *newname) ; 
bool erase (void); 
File *copy(const char *newfile, bool overwrite = FALSE); 


}; 
#endif 


End Listing Three 


Listing Four 
/* FILE.CPP Written by Kevin D. Weeks Released to the Public Domain *, 


#include <errno.h> 
#include <io.h> 
#include <sys\stat.h> 
#include <dos.h> 
#include "file.hpp" 


// this declaration instructs the compiler to NOT perform name-mangling 
// on these functions. 


extern "C" 

{ 
extern char ll get drive (void) ; 
extern int ll_get_cwd(int, char *); 


extern unsigned int 1l _write(int, unsigned int, const void *); 


} 
extern volatile int errno; 


/* An empty file object seems silly but here it is anyway */ 
File: :File(void) 
{ 
handle = -1; 
file pos = OL; 
open flags = 0; 
filelength = OL; 
} 


oO 


/* This is the File version of the "copy" constructor. it is posible t 
open the file when the object is instantiated by passing TRUE as a 
second parameter. 

xf 

File::File(const File Specé original, bool open file): (original) 

{ 
handle = -1; 
file pos = OL; 
open flags = 0; 
if ((filelength = filesize(filespec())) == -1L) 

filelength = OL; 
if (open file == TRUE) 
open () ; 


} 


/* This constructor is the same as the one above. The differences in pass 
parameters are handled by their respective ancestors. 
*/ 
File::File(const char *name, bool open_ file): (name) 
{ 
handle = -1; 
file pos = OL; 
open flags = 0; 
if ((filelength = filesize(filespec())) == -1L) 
filelength = OL; 
if (open file == TRUE) 
open (); 


} 


/* File destructor */ 
File:: File(void) 
{ 
if (handle > 0) 
close(); 
} 


/* Does the file exist? */ 


bool File::exists (void) 


{ 
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if (!complete()) 
return (FALSE) ; 

if (findfirst (filespec(),0) == NULL) 
return (FALSE) ; 

return (TRUE) ; 


} 


/* Create the file. */ 


bool 
{ 


int = 
if (!complete()) 


File::create(int mode flags, bool 
tmp handle; 


return (FALSE); 


if (handle > -1) 
{ 


} 


if (exclusive) 
return (FALSE) ; 
else 
close(); 


else 


if (exists()) 
if (exclusive) 
{ 
errno = EEXIST; 
return (FALSE) ; 


} 





// check for a completed file spec 


// and either fail if not 
// or else check for directory entry 


exclusive) 


// is the file spec complete? 


// if the file is open 


// if the file exists 
// if this flag is TRUE 
// return an error 


// create the the file and then close it to re-open with the appropriate 


// mode flags set 
if ((tmp_handle = creat (filespec(),S_IWRITE . S IREAD)) == ERR) 


return (FALSE) ; 


::close (tmp handle) 7 


‘ use the standard library to actually open it ( : 
((handle = ::open(filespec(),mode flags)) == ERR 


(open(mode flags) == FALSE) 
return (FALSE) ; 


_position (OL); 
filelength = OL; 


the file. */ 
File::open(int mode flags) 


(handle > -1) 
return (TRUE); 

(!complete ()) 
return (FALSE); 


return (FALSE); 


open flags = mode flags; 


d_only (TRUE) ; 


* Close the file. */ 


han 
MUL 


} 
/* 


unsigned int 


{ 


/x 
/ 


*/ 
bool 
{ 


+ 


File::close(void) 


(handle > -1) 
if (::close(handle) == ERR) 
return (FALSE) ; 


handle = -1; 

file pos = 0L; 
open flags = 0; 
read_only (FALSE) ; 


ral 


// the :: means use the library close 
/ no :: - use the File method 


// position at the beginning 


// tell Fil 


e 
// be changed 


// if the file is already open 
// don’t re-open it 
// check for a complete file spec 


. 
we es 


// keep the mode flags 
// tell File Spec not to change a 
// thing 


// if the file’s open 


a close it 


// and re-initialize everything 


// File Spec can change again 


Read the file. NOTE: bytes actually read may be less than requested. */ 


in 


ie 


bytes read; 


if (handle < 0) 


{ 


} 

// 
fit 
// 
if 


// 
if 


errno = EBADF; 
return (FALSE); 


File::read(void *buffer, unsigned int num bytes) 


// make sure the file’s open 


first set the file position. if auto-advance is on set _position() 
will just return. otherwise it will move the file pointer to where 
it should be. then use the standard read to read the file 


(set_position(file pos) != FALSE) 


if ((bytes read = >: read (handle, buffer,num bytes)) == ERR) 


return (FALSE); 


if auto-advance is on we still need to keep ourselves current 


(open_flags & F_ ADVANCE) 
file pos += (long)bytes read; 


// return the number of bytes actually read 
return (bytes read); 


Write to the file. 


specified IS considered a failure. 


if 
{ 


} 


In this case failure to write the number of bytes 


File::write(const void *buffer, unsigned int num bytes) 


(handle < 0) 


errno = EBADF; 
return(FALSE) ; 


if. (num_bytes == 0) 


return (TRUE); 


// is the file open? 


// 1£ zero bytes are to be written 
// return WITHOUT truncating the file 


// make sure the file pointer is positioned right and then call our 
// low level write routine to write it. there’s no reason to clutter up 
// the program with the library write() 


(Listing continued on page 110) 
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Automator, the software “robot” 
that never sleeps. 


In today’s competitive global economy, optimizing 
the productivity of your corporate- wide information 
system has become critical. 


The flow of information between your main- 
frame and workstations should be serving you at 
full capacity, around-the-clock, freeing managers 
for more creative pursuits. 

Automator was developed to simplify the 
process of linking PC workstations into any infor- 
mation network. It is a complete software system 
for creating and running unattended operations 
which drive the PC workstation, using pre-pro- 
grammed instructions as if the operator was 
actually there. 

Automator can faithfully perform all those 
day-to-day tasks that must be done—like down- 
loading files for distribution on E-mail; automating 
month-end procedures; searching and capturing 
mainframe data for use in a PC application; constant 
monitoring of the computer network—and 101 
other uses. 





Universal, Productive, Efficient 

Automator software makes emulation specific 
APIs redundant, because it can work concurrently 
with most DOS applications, LANs and terminal 
emulations, including 3270, 5250 and VT 220. 


The software's Program Generator rapidly pro- 
duces applications, by simply watching a PC’s screen, 
keyboard and clock. And with its high level pro- 
gramming language, can give developers the 
flexibility to build sophisticated applications that 
can be tested in a matter of hours. 

And even though Automator has the capacity 
to perform multiple operations, its unique technology 
keeps DOS memory requirements 
down to a minimum of only 32K. 


For more information about 
Automator, call Mark Gillett or 
Harold Lund at 212-475-2747 


or 800-992-9979. 






a 


From Direct Technology 


10 East 21st Street, New York, NY 10010 
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C++ FILE OBJECTS 


Listing Four (Listing continued, text begins on page 50.) 


} 
/* 


bool 


{ 


} 


if (set position(file pos) != FALSE) 
if (11 write (handle, num_bytes,buffer) < num_bytes) 
{ 
// at this point we failed to write as many bytes as desired. to 
// eliminate side effects we truncate 
truncate (); 
return (FALSE) ; 
} 
// if we wrote at the end of the file, increase its length 
if (file pos == filelength) 
filelength += (unsigned long)num bytes; 
if (open flags & F_ ADVANCE) // check for auto-advance 
file pos += (long)num bytes; 
return (TRUE) ; 


Truncate chops a file off at the current file position. */ 

File::truncate (void) 
if (handle < 0) // don't bother if we’re not open 
{ 

errno = EBADF; 

return (FALSE) ; 


} 
// re-set the file pointer and write zero bytes 


if (set_position(file pos) != ERR) 
if (!11_write (handle, 0,NULL) ) 
return (FALSE) ; 
filelength = file pos; 
return (TRUE) ; 


// re-set the length 


/* Position the DOS file pointer */ 
bool File::set_position(long new_file pos) 
{ 
if (handle < 0) // guess! 
{ 
errno = EBADF; 
return (FALSE) ; 
} 
// first make sure we’re not attempting to set before the beginning or 
// after the end of the file. 
if (new file pos > filelength :. new file pos < OL) 
return (FALSE); 
// position it 
if (lseek(handle,new_ file pos,SEEK SET) == -1L) 
return (FALSE) ; 
file pos = new file pos; 
return (TRUE) ; 
} 
/* Get the current file position */ 
long File::get_position (void) 
{ 
return(file pos); 
} 
/* Get the file size */ 
long File::size(void) 
{ 
long length; 
if (handle > -1) 
return (filelength) ; 
else 
{ 
if (open() == FALSE) 
return (OL); 
length = filelength; 
close(); 
return(length) ; 
} 
} 
/* If we attempt to rename an open file it is first closed and then 
reopened after the rename. 
lf 
bool File::rename(const char *newname) 


{ 


bool reopen = FALSE; 
int tmp flags; 

int i; 

if (handle > -1) 

{ 


// close the file if it’s open 


tmp flags = open flags; 
close(); 7 
reopen = TRUE; 
} 
else 

if (exists() == FALSE) 

return (FALSE) ; 

// create a new file spec just like this one (note that i 
// instantiated at this point) 
File Spec newspec = *this; 
newspec.change_name (newname) ; 
if (::rename(filespec(),newspec.filespec()) ! 


{ 


// make sure the file exists 


if (reopen) 
// pass the existing open flags in case the d 
// when the file was originally opened. 
open(tmp flags); 

return (FALSE) ; 
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} 


/* 
bool 


{ 


} 


/* 
File 


{ 


// now update this file name 


change_name (newname) ; 
if (reopen) 

return(open(tmp flags)); 
return (TRUE) ; 


Erase the file. if it’s open, close it first. */ 


File::erase (void) 
if (handle > -1) 
close(); 
if (unlink(filespec()) == ERR) 


return (FALSE); 
return (TRUE) ; 


overloading. */ 


A 
O 
e) 


This might also be a good opportunity for operator 
t 


*File::copy(const char *newname, bool overwri 
File *newfile; // file to copy to 
char *buffer; // 1/0 buffer 
unsigned int buf size; // size of I/O buffer 
unsigned int num bytes; // number of bytes transfered 
long tmp_file pos; // temporary file position holder 
bool re close = FALSE; // flag indicating if source file 


// should be closed following the 
// copy (to avoid side effects) 


int tmp_old flags; // the original source open flags 
errno = 0; 

// first create the new object instance 

if ((newfile = new File(newname)) == NULL) 


{ 
errno = ENOMEM; 
return (NULL); 
} 
// then create the new file (invert overwrite for create) 
if (!(newfile->create(F ADVANCE ; F_RDWR, (bool) !overwrite) )) 


delete newfile; 
return (NULL); 


mpt to allocate a buffer. loop until successful or fail at 1 char 
e = 32768; 
(buffer = new char[buf size]) == NULL) 


Asie 


—~N 


buf size /= 2; 
if (buf sige == 1) 
{ 
errno = ENOMEM; 
delete newfile; 
return (NULL) ; 
} 
} 
if (handle < 0) // i1£ the source file isn’t open 
{ 
if (!open()) // open it 
{ 
// if we can’t open the source 
// file we need to clean up 


newfile->close(); 
newfile->erase(); 
delete newfile; 
delete[buf size] buffer; 
return (NULL) ; 

} 


re close = TRUE; // copy() opened it so copy() 
} // should close it 
tmp_old flags = open flags; // keep the original open flags 
open flags i= F_ ADVANCE; // and turn auto-advance on 


tmp file pos = file pos; // keep the original file pointer 
set_position (OL); 
// loop until the entire file has been copied 

while (num_bytes = read(buffer,buf_size)) 

{ 

Lf (newfile->write(buffer,num bytes) == FALSE) 

{ // i1£ a write error occurs we 
newfile->close(); // need to clean up the mess 
newfile->erase(); // and return an error 
delete newfile; 
delete(buf size] buffer; 
open_flags = tmp old flags; 
set_position(tmp file pos); 
if (re_close) - 

close(); 
return (NULL) ; 
} 
} 
// clean up and return the new file 
newfile->close(); 
delete(buf size] buffer; 
open flags = tmp old flags; 
set_position(tmp file pos); 
if (re close) - 
close(); 
return (newfile); 


End Listing Four 
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// go to the beginning of the file 





Listing Five 


PRK RRR KK KKK KKK RK KKK KR KKK KKK KK KKK KK KK KKK KKK KK KKK RK KKK RK KKK KKK KK KK KKK xx 


; LOWIO.ASM Written by Kevin D. Weeks Released to the Public Domain 


include MACROS.ASM ; macro file provided by Zortech 
; import errno 
begdata 
extrn _errno:word 
enddata 


sek wk Kk Kk KK KR KK RK RR RK KR KR KR KR KR KK kK KK KK KK Kk Kk kK kK ® 


; bool ll_write(int file handle, unsigned int num_bytes, void *buffer); 

: ll_write simply makes a call to DOS for a write. it varies in two ways 

; from the standard C write(). 

; 1. the order of pass parameters (to simplify dealing with 80x86 segments) 
2. it WILL truncate a file 


begcode 1l write 
¢ public ll write 
func ll write 


push bp 
mov bp, sp 
push bx 
push CX 
push dx 
mOv bx,P [bp] ; get file handle from stack 
mov cx,P[bp + 2] ; get number of bytes to write 
mOv dx,P[bp + 4] ; get offset of buffer 
if LPTR ; if large memory model 
Mov ds,P[bp + 6] ; get segment of buffer 
endif 
MOV ax,4000h ; dos write file function 
int 21h ; call dos 
aie write err ; carry flag indicates error 
jmp write ret 
WElbe errs 7 
mov _errno, ax ; set errno to error 
write ret: 
pop ds 
pop dx 
pop ex 
pop bx 
mov sp, bp 
pop bp 
cee 


c_endp ll write 
endcode ll write 


ok &e Kk kK Ke KK KK KK KR KR KR KR KR KR KR KK KKK KK KKK KK I KKK 
’ 


; Bia 1l_get_drive (void) ; 
1l_get_drive simply returns the current looged disk drive. there is no 
error return. 


begcode 1] get drive 
¢ public 11 get drive 
func 11 _get_drive 


push bp 
mov bp, sp 
mov ax,1900h ; dos get current drive function 
int 21h ; call dos 
xOr ah, ah ; clear high byte 
mov sp, bp 
pop bp 
ret 
c endp. 11 get drive 
endcode 1l get drive 


ok eK & KK Kw Kw KK KR KK KR KR KK KKK KKK KKK KKK KKK KK KK KKK 
' 


bool 11 _get_cwd(int drive); 
1l_get_cwd gets the current working directory for the specified drive. 


’ 
; Q means the current drive, 1 means drive A, 2 means drive B, etc. it 
returns a 0 if an error occurs and errno is set. 








begcode 1l_get_cwd 
c public 11 get_cwd 


func 11_get_ 


push 





jmp 
get_cwd_err: 

mov 

mov 
get_cwd_ret: 


cwd 
bp 


dx, P [bp] 
si,P[bp + 2] 


ds,P[bp + 4] 


ax, 4700h 
21h 
get_cwd_err 
ax, ax 
get_cwd_ret 


_errno, ax 
ax, 0ffffh 


; get drive 


get offset of buffer 
if large memory model 
get segment of buffer 


; dos get current cwd function 


| 


(Listing continued on page 112) 
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call DOS 
carry flag indicates error 


set errno to error 
& set ax to -l 
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C++ FILE OBJECTS 


Listing Five (Listing continued, text begins on page 50.) 


pop as 
pop =e 
pop dx 
mov sp, bp 
pop Dp 
ret 


c_endp 11 get_cwd 
endcode 11 _get_cwd 


END 


End Listing Five 


Listing Six 

/* FILETEST.CPP Written by Kevin D. Weeks Released to the Public Domain */ 
#include <stdio.h> 

#include <errno.h> 


#include <string.h> 
#include "file.hpp" 


// File Spec test cases 


char *device test[] = 
{ 
" - // no device 
“at // complete device 
"Se", // invalid file char 
"ab:", // device too long 
Meneses // invalid char (double colon) 
NULL 
\* 
char ‘prefix test) = 
{ 
my // no prefix 
"\\sub\\", // complete prefix 
"\\>sub\\", // complete with invalid file char 


// prefix too long 


"\\0123456789\\0123456789\\0123456789\\0123456789\\0123456789\\0123456789\\", 


"sub.dir\\", // incomplete prefix (no backslash) 
"\\\\sub\\", // double back slash 
"\\sub.dir\\", // complete prefix with extension 
"subl\\sub2\\", // bi-level incomplete prefix 
"\\subl\\sub2\\", // bi-level conplete prefix 
Bg SOD g // relative, incomplete prefix 
"4 \\SUBV 5 // is i 7 
WO tue // " ; " " 
".\\sub\\", // n " " 
WV ee VSUB k's // relative but starts at root 
.\\>sub\\", // relative with invalid file char 

MAN G // complete prefix 
NULL 

be 

char ‘name test [] = 


{ 
ms // no name 


"files" // complete name 

"ETLE>"; // complete with invalid file char 
"filetestl.", // name too-long 

"file..." // invalid char (double dot) 
"file", // incomplete, no dot 

NULL 


. 
"a 


char *suffix testi i = 
{ 
mN // no suffix 
D2Sse" // complete suffix 
"ets", // complete with invalid file 
char 
Wesel" // suffix too long 
NULL 
Le 
te 
char **test[] = 


device test, 
prefix test, 
name test, 

suffix test 


he 


char 


{ 


*test_type[] = 


"DEVICE ", 
"PREFIX ", 
"NAME ", 

"SUFFIX " 
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he 


extern volatile int errno; 


void check file spec(void); 

void check file (void); 

void make _filespec (char *test_case); 

void print_condition (File _ Specs file,char *test_name,char *test_case); 
int main (void) 


{ 
check file spec(); 
check file(); 

} 


void 


{ 


check_ file spec() 


int Lig, Jy. KG 

char test_case[81]; 

char title[81]; 

printf ("\nTESTING File Spec...\n\n"); 
File Spec filel; 
print_condition(filel,"void constructor 


// check void constructor 


wd W " ) : 


for (i = 0; i < 4; itt) 

{ 
printf ("CHECKING %s\n",test type[i]); 
j= 0; 
while (test [i] [3] 
{ 


'= NULL) 


make filespec(test[i][j]); 
tte 


} 


// check first four complete combinations 
printf ("\nCHECKING COMPLETE FILE SPECS\n") ; 
for (i = 0; 1 < 4; itt) 
{ 
strcpy(test_case,test [0] 
strcat (test_case, test [1] 
strcat (test _case,test [2] 
strcat (test case, &test [3 
make _filespec(test_ case); 


pee i 


i 
i 
i 
i 


[1 
[1 
[1 
] 


for (1 = 0; i < 4; itt) 


printf ("CHECKING change %s\n",test_type[i]); 
j} = 0; 


while (test[i][j] != NULL) 
{ 
switch (1) 
{ 
case 0: 
if (filel.change device(test[i][j]) == FALSE) 
printf("Error changing device"); 
break; 
case l: 
if (filel.change prefix(test[i][Jj]) == FALSE) 
printf("Error changing prefix"); 
break; 
case 2: 
if (filel.change name(test[i][j]) == FALSE) 
printf("Error changing name"); 
break; 
case 3: 
if (filel.change suffix(test[1](j]) == FALSE) 
printf("Error changing suffix"); 
break; 
be 
print. condition(filel,;" ", testi) [j])y 


++); 
} 
} 
printf ("\nCOMPLETION TEST\n"); 


filel.change device(); // erase current device 


filel.change prefix(); & prefix 

print _condition(filel,"BEFORE"," "); 

filel.complete(); 

print _condition(filel,"AFTER"," "); 

File Spee filez = filel; 

print _condition(file2,"\nTEST ’=’ OPERATOR\n","file2 = filel"); 


} 


void 


{ 


make filespec(char *test_case) 


File. Spec file2(test_case) ; 

print _condition(file2, "char constructor",test case); 
File Spec file3(file2); 7 

print condition (file3,"copy constructor",test_case); 


oO 
i 
Q, 


print _condition(File Spec& file, char *test_name, char *test_case) 


(Listing continued on page 115) 
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Introducing Extending DOS. 
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C++ FELE-OBIECTS 


Listing Six (Listing continued, text begins on page 50.) 


unsigned int status; printf("Error re-creating %s\n",filel.filespec()); 
char *completion; perror(""); 

char *character; return; 

static char incomplete[] = {"INCOMPLETE"}; } 

static char complete[] = {"  complete"}; 


static char invalid[] {"INVALID CHAR"}; intf("File %s successfully created and opened\n",filel.filespec()); 


static char valid[] = {" chars ok "}; 


py(buffer,"this is a test file"); 
strlen (buffer); 
(filel.write(buffer,i) == FALSE) 


printf ("%s\t%s\n",test name,test case); 
status = file.status(); 7 
printf("file condition: %x\n",status) ; 
. perror("Error writing"); 
completion = (status & FLAG DEVICE) ? incomplete : complete; printf("Closing file\n"); 
character = (status & (FLAG DEVICE << 4)) ? invalid : valid; return; 
printf ("\tdevice: %-9s\t%s\t%s\n", file.get_device(),completion, character) ; 
intf("\"%s\" written to file\n",buffer); 
intf("Current file position is: %ld\n",filel.get position()); 
intf("Current file length is: %ld\n",filel.size()); 
(filel.read(buffer,i) == FALSE) 


completion = (status & FLAG PREFIX) ? incomplete : complete; 
character = (status & (FLAG PREFIX << 4)) ? invalid : valid; 
printf ("\tprefix: %-9s\t%s\t%s\n", file.get_prefix(),completion, character) ; 


completion = (status & FLAG NAME) ? incomplete : complete; perror("Error reading"); 
character = (status & (FLAG NAME << 4)) ? invalid : valid; printf ("Closing File\n") ¢ 
printf("\t name: %-9s\t%s\t%s\n",file.get_name(),completion, character) ; return; 


character = (status & (FLAG SUFFIX << 4)) ? invalid : valid; printf("\"$s\" read from file\n", buffer) ; 
printf ("\tsuffix: %-9s\t%s\t%s\n", file.get_suffix()," ",character) ; £ (filel.rename("test.fil") == FALSE) 


printf ("\tfilespec: %s\n\n", file. filespec()); perror("Error renaming"); 

} printf("Closing file\n"); 

return; 

void check_file (void) } 

{ printf("File renamed to %s\n",filel.filespec()); 
char buffer[81]; 
int iL? File *file2 = filel.copy("test2.fil"); 

if (errno) 

printf ("\n\n\nTESTING File...\n\n\n"); 

perror("test2.f1il"); 

/* we won’t try to perform any constructor tests since most of the printf ("Overwriting it.\n"); 
attributes are in-accessable and therefore best checked using file2 = filel.copy("test2.fi1", TRUE) ; 
either a source-level debugger or printf statements. */ } 

File filel("file.tst"); if (file2->exists()) 

printf("%s successfully copied to %s\n",filel.filespec(),file2- 
printf ("Creating %s\n",filel.filespec()); >filespec()); 

if (filel.create() == FALSE) : 

{ 
printf ("%s already exists. Re-creating it.\n",filel.filespec()); 
if (filel.create(F_RDWR,FALSE) == FALSE) } 
{ 


printf ("Copy failed.\n"); 
return; 


delete file2; 


End Listings 
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PIXEL ORDERING 


Listing One (Text begins on page 50.) xmin -= delta; 


xmax += delta; 


/* points.c Copyright (c) 1989 by Norton T. Allen */ } else 4 
ial : yscale = xscale/ASPECT; 
delta = (ymin + yscale * vp height() - ymax)/2.; 


#include "points.h" 
ymin -= delta; 


int nbits(int 1) { ; ymax += delta; 


int nb; . 
xO = xmin; 
for (nb = 0; i != 0; nbtt) 1 >>= 1; yo = ymin; . 
return (nb) ; } [* ---------------------- 2-2-2225 nnnnnne / 
‘ . 
double vx (int dx) /* convert device x to virtual x */ 


static int focus x, focus y, focus width, focus height; { 
7 ~ 7 return ((double) dx * xscale + xo); 


ee */ 


/* zeros in map correspond to x bits, 1’s to y bits */ 
static long int z, map, zlim; 


static int tbits, xor_y; double vy (int dy) /* convert device y to virtual y */ 


{ 
return ((double) dy * yscale + yo); 


void init _points(int left, int top, int width, int height) { oe <j 


int nbits_w, nbits_h; 


long int mask; — . 
/* Membership in the Mandelbrot set is determined by an 
left; iterative function. Given the complex starting 


focus x 
focus y = top; coordinate C ied a is: 


focus width = width; 

focus height = height; Z(n+1) = Z(n)*%2 + C . . . 

nbits w = nbits(focus width); A point is deemed to be in the set if NLOOP iterations fails 

nbits h = nbits(focus height); to produce a point with absolute value greater than LIMIT. 

tbits = nbits w + nbits h; Points within the set are colored black. Points outside the 

xor y = nbits w < nbits h; set are colored based on how many iterations passed before 
= * ~ exceeding LIMIT. Miriad other schemes are possible. Other 


z = OL; 
zlim = 1L << tbits; values for NLOOP and LIMIT are probably desirable, depending 
map = OL; on how deep you go. 
for (mask = 1L; nbits_w i: nbits_ h; ) { */ 
if (nbits w > nbits h :: (nbits_w == nbits_h && xor_y)) { #define NLOOP 100 


#define LIMIT 10000. 


nbits w--; 
mask <<= 1; #define NCOLORS 15 
} 
if (nbits h > 0 && int mandel color(double cx, double cy) { 
(nbits h > nbits_ w i; (nbits_w == nbits_h && !xor_y))) { int k; 
nbits h--; ~ ~ ~ double zx, zy, zx2, zy2; 
map ‘= mask; 
mask <<= 1; zx = zy = 0.; 
} for (k = 0; k < NLOOP; k++) { 
} ZX2 = ZX*ZX} 
} zy2 = zy*zy; 
if (zx2+zy2 > LIMIT) break; 


( 
zy = 2*zx*zy + cy; 


int next point(int *dx, int *dy) { 
= zx2 - zy2 + cx; 


int x, y, Nn; 


long int m, rz; } 
if (k < NLOOP) return((k % NCOLORS) +1); 


for (33) { return (0); 
1f (z == zlim) return(l); 
m= map; rz = z; n = tbhits; 
x = y = 0; End Listing Two 
while (n-- > 0) { 
if (m & 1) { /* this is a ybit */ 
y <<= 1; 
if (rz & 1) ytt; e e 
} else { Listing Three 
x <<= 1; 
if (rz & 1) x++; /* generate.c Copyright (c) 1989 by Norton T. Allen */ 
} 
m >>= 1; rz >>= 1; #include <stdio.h> 
} #include <stdlib.h> 
zt; #include <dos.h> 
if (xor_y) y=x%* yi #include "points.h" 
else x =x “* y; #include "grafix.h" 
if (x >= focus_width) continue; 
if (y >= focus height) continue; /* This structure defines a rectangular box which we can move around the 
break; screen using the cursor keys. fbox.on is TRUE if the box is 
} currently displayed. fbox.mode takes the values: 
*dx = x + focus x; 0 Not active 
*dy = y + focus _y; 1 Cursor keys move the whole box 
return(0); 2 Cursor keys change box’s size 
a 
struct bx { 
End Listing One int x, y, dx, dy, on, mode; 


} fbox = {300, 160, 50, 40, 0, 0}; 


void flip box(void) { 
set_write mode (WM_XOR) ; 


Listing Two set colori (15); 


draw_rect (fbox.x, fbox.y, fbox.dx, fbox.dy); 


/* mandel.c will handle the actual Mandelbrot set calculations. set_write_mode (WM_REPLACE) ; 
Copyright (c) 1989 by Norton T. Allen */ fbox.on = !fbox.on; 
} 
#include "grafix.h" 
void help(void) { 


/* This is the aspect ratio calculated on my screen: */ printf("'Esc’ to exit\n"); 


¥define ASPECT 0.739 printf ("? for this message\n"); 
printf ("m to move the focus box. (use cursor keys) \n"); 
static double xscale, yscale, xo, yo; printf ("s to size the focus box. (use cursor keys) \n"); 
printf ("f to focus on the focus area\n"); 
/* set_range() is similar to setcoords() except that it guarantees printf ("z to zoom in on the focus area\n"); 
equal x and y scales, taking the aspect ratio into account. getch(); 
The axis with the smaller scale is adjust so the specified } 
range will be centered on the screen. Another reason for static int dm = 1; /* How many pixels to move with each cursor step */ 
not using setcoords() is that I need the inverse functions 
mapping device coordinates to virtual coordinates. /* check_box makes sure the new box meets the following requirements: 
x / 1. It isn’t off the screen. 
void set_range(double xmin, double ymin, double xmax, double ymax) { 2. It’s not smaller then 2 pixels in either dimension 
double delta; Check box turns off the old box, but leaves the new box off also; 
menu() will turn it on when there’s no more keyboard input. 
yscale = (ymax-ymin) /vp_height (); */ 
xscale = (xmax-xmin)/vp width(); void check_box(struct bx *nb) { 
if (yscale*ASPECT > xscale) { if (nb->x <0 1) nb->y < 011 
xscale = yscale*ASPECT; nb->x + nb->dx > vp_width() |: 
delta = (xmin + xscale * vp width() - xmax)/2.; 7 
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Listing Three (Listing continued, text begins on page 50.) 


nb->y + nb->dy > vp height() |: 
nb->dx < 2 i: nb->dy < 2 [3 


(nb->x == fbox.x && nb->y == fbox.y && 
nb->dx == fbox.dx && nb->dy == fbox.dy)) 
return; 
if (fbox.on) flip box(); 
fbox = *nb; ~ 


fbox.on = 0; 
} 


/* These are scan codes for cursor keys: */ 
#define EX UP 72 

#define EX. DOWN 80 

#define EX RIGHT 77 

#define EX LEFT 75 


/* Menu supports the following keys: 
ESC Exit 
M suspend calculations and put box on the screen in 
mode 1 for ’moving’. 
S As with M, but mode 2 for ‘sizing’. 7 
C Remove box and continue calculations as before 
F Focus on boxed region. 
Z Zoom in on boxed region. 
C 
0 


ursor keys Move or size box 
-9 Change step size for cursor keys 
A 
void menu(void) { 
int. ¢} 


struct bx new box; 
double xmin, ymin, xmax, ymax; 


for (77) { 
while (kbhit()) { 
c = getch(); 
switch (c) { 
case '\033’: 
exit (0); 
case ’c’: 
case ‘'C’: 
fbox.mode 
break; 
case ‘/m’: 
case 'M’: 
fbox.mode 
break; 
case 'Ss': 
case 'S’: 
fbox.mode 
break; 
case ‘f':; /* Focus on boxed region */ 
case ‘FF’: 
if (fbox.mode == 0) break; 
init _points(fbox.x, fbox.y, fbox.dx, fbox.dy); 
fbox.mode = 0; 


ll 
S 
~ 


iH 
bh 
~e 


2 


break; 
case 'z’: /* Zoom in on boxed region */ 
case ‘'Z’: 

if (fbox.mode == 0) break; 

xmin = vx(fbox.x); 

ymin = vy(fbox.y+fbox.dy) ; 

ymax = vy(fbox.y); 

xmax = vx(fbox.x+fbox.dx) ; 


set_range(xmin, ymin, xmax, ymax); 
init_points(0, 0, vp_width(), vp_height()); 
pce_textmode () ; /* Kluge to clear screen */ 
init video (EGA) ; 
fbox.mode = fbox.on = 0; 
break; 
case '1': 
case ‘2’: 
case '3': 
case '4’: 
case ‘5’: 
case ’6’: 
case ‘7’: 
case ’8': 
case ‘9’: 
dm = c-’0’; 
break; 
case 0: 
c = getch(); 
new box = fbox; 
if (fbox.mode == 1) { /* moving the box */ 
switch (c) { 
case EX UP: 
new _box.y -= dm; 
break; 
case EX DOWN: 
new box.y += dm; 
break; 
case EX_RIGHT: 
new box.x += dm; 
break; 
case EX LEFT: 
new box.x -= dm; 
break; 
default: break; 


} 
} else if (fbox.mode == 2) { 
switch (c) { 
case EX_UP: 
new box.dy -= dm; 
break; 
case EX DOWN: 
new _box.dy += dm; 
break; 
case EX RIGHT: 
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new box.dx += dm; 
break; 
case EX LEFT: 
new_box.dx -= dm; 
break; 
default: break; 
} 
} 
check_box(&new_box); 
break; 
default: 
break; 


if (fbox.mode == ) break; 
else if (!fbox.on) flip box(); 


if (fbox.on) flip _box(); 


void generate(void) { 


int c, xX, y; 
double fx, fy; 


for (77) { 
while (next point (&x, &y) == 0) { 
fx = vx(x); 
fy = vy(y); 


c = mandel_color(fx, fy); 
set_colorl(c); 
draw point (x, y); 
if (kbhit()) menu(); 
} 


menu (); 


void main(int argc, char **argv) { 
if (init video (EGA)) { 
init_points(0, 0, vp_width(), vp_height()); 
Set range (-2.;°°.95, «13; «<99)F7 
generate(); 
} else printf ("Cannot select graphics mode"); 


End Listing Three 


Listing Four 

/* points.h include file for pixel ordering program. */ 
void init_points(int left, int top, int width, int height); 
int next _point(int *dx, int *dy); 

int mandel_ color(double cx, double cy); 


void set_range(double xmin, double ymin, double xmax, double ymax); 


double vx (int dx); /* convert device x to virtual x */ 
double vy (int dy); /* convert device y to virtual y */ 
End Listing Four 


Listing Five 

To be included in grafix.h 
/* Added by Norton Allen */ 
[x --------------------- x / 


void set_write_mode(int mode); 


#define WM REPLACE 0 


.#define WM XOR 0x18 


End Listing Five 


Listing S1x 
/* wmode.c for DDJ grafix library Copyright (c) 1989 by Norton T. Allen */: 


#include <dos.h> 
#include "grafix.h" 


int write_mode = WM REPLACE; 
void set_write_mode(int mode) { 


write mode = mode; 


} 


End Listings 
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SLATE w/Graphics 
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C LANGUAGE COMPILERS 
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Listing One (Text begins on page 62.) 


a iT aT) 


; input: selector 
; output: if valid and visible at current protection level, 
; return segment limit (which is 0 for 1-byte seg!) 
; else 
7 return 0 
isl proc 
enter 0, 0 
sub ax, ax 
Isl ax, [bpt6] 
leave 
ret 
_isl endp 
; extern unsigned short far lar(unsigned short sel); 
; input: selector ; 
; output: if valid and visible at current protection level, 
return access rights (which will never be 0) 
; else 
; return 0 
i bug: retval for l-byte seg = retval for invalid selector f 
lar proc 
enter 0, 0 
sub ax, ax 
lar ax, [bpté6] 
shr ax, 8 
leave 
ret 
_lar endp 
; extern BOOL far verr(unsigned short sel); 
; input: selector 
; output: valid for reading ? 1: 0 
verr proc 
enter 0, 0 
mov ax, l 
verr word ptr [bpt+6] 
je short verr okay 
dec ax 
verr okay: 
leave 
ret 
_verr endp 
F extern BOOL far verw(unsigned short sel); 
; input: selector 
7 output: valid for writing ? 1: 0 
_verw proc 
enter 0, 0 
mov ax, l { 
verw word ptr [bpt+6] 
je short verw_okay 
dec ax 
verw_ Okay: 
leave 
ret 
_verw  endp 
extern void far sgdt(void far *gdt); 
; input: far ptr to 6-byte structure 
; output: fills structure with GDTR 
_sgdt proc 
enter 0, 0 
les bx, dword ptr [bpt+6] 
sgdt fword ptr es: [bx] 
leave } 
ret 
sgdt endp 
; extern void far sidt(void far *idt); 
7 input: far ptr to 6-byte structure 
; output: fills structure with IDTR 
Ssidt proc 
enter 0, 0 
les bx, dword ptr [bpt+6] 
sidt fword ptr es: [bx] 
leave 
ret 
_sidt endp 
; extern unsigned short sldt (void); 
: input: none 
; output: Local Descriptor Table register (LDTR) 
_sldt = proc 
sldt ax 
ret 
_sldt endp 
end End Listing One 
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protmode.asm -- 286 protected-mode instructions 


requires MASM 5.0 or higher or TASM 
masm -ml protmode; 
or, tasm -ml protmode; 


dosseg 
.286p 
.model large 
.code 
public 


extern unsigned far lsl(unsigned short sel); 


_lsl, _lar, _verr, _verw, _sgdt, _sidt, _sldt 


EXAMININ 


G 


R 0 0 M 


Listing Two 


/* PROTMODE.H */ 


typedef enum { FALSE, TRUE } BOOL; 
#ifdef InstantC 
unsigned far lsl{unsigned short sel) 


unsigned 


BOOL far verr(unsigned short sel) 
BOOL far verw(unsigned short sel) 
void far sgdt(void far *gdt) 

void far sidt(void far *idt) 
unsigned short sldt (void) 

#else 


extern BOOL far verr(unsigned short sel) 
extern BOOL far verw(unsigned short sel) 


extern void far sgdt(void far *gdt); 
extern void far sidt(void far *idt); 


extern unsigned short sldt (void); 
#endif 


Listing Three 


/* BROWSE.C */ 


#ifdef InstantC 
#loadobj} "protmode.obj" 
#endif 

#include “protmode.h" 


void browse () 


unsigned long addr; 

unsigned i, acc; 

for (i1=0; i<OxFFFF; i++) 
if (acc = lar(i)) 


{ 


short far lar(unsigned short sel) 


. 
’ 


. 
v 


extern unsigned far lsl(unsigned short sel); 
extern unsigned short far lar(unsigned short sel); 


addr = D1l6AbsAddress (MK FP(i,0)); 
printf ("%804X %061X LAR=%02X LSL=%04X PL=%02X %s %s %s %s\n", 


2 SVERR™ ac & 
verw(i) ? "VERW" ; " 

i & 4 ? "LDT" "GDT", 

i == addr >> 4 ? "TRANS" 


verr (1) 


Listing Four 


/* SEL.C #7 


void sel(void far *fp) 


extern DESCRIPTOR far *gdt; 
extern DESCRIPTOR far *ldt; 
unsigned seg = FP SEG(fp); 
unsigned index = seg >> 3; 
DESCRIPTOR far *dt = (seg & 4) 
ACCESS RIGHTS *pacc = 


pacc->dpl, 
pacc->accessed ? ’a’ ;: '-’ 


ae 
pacc->read_ write ? ((pacc->code data) ? ‘r’ 


? gdt : 
(ACCESS RIGHTS *) 


// 
// 
// 
// 
// 
// 
// 
// 
me ff 


ldt; 





End Listing Two 


// for all possible selectors 
// if a valid selector 


selector 

physical base addr 
access-rights byte 
segment limit 
protection level 
readable? 
writeable? 

which table? 
transparent? 


End Listing Three 


// table indicator 


hs &dt [index] .access; 

printf ("SEL=%04X ADDR=%02X%04X LIMIT=%04xX ACCESS=%dSc%cSc%cSc%c\n", 
seg, dt [index] .addr_ hi, dt [index].addr_lo, dt[index].limit, 
// display access rights as if they were file attributes: 


pacc->conf_exp ? ((pacc->code data) ? 'f’ 


pacc->code data ? ’c’ : 'd’, 
pacc->xsystem ? ’-’ : ‘8s’ 
Ppacc->present ? 'p’ Pmt 


End Listings 
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SOFTWARE DEVELOPERS: 
ARE YOUR PRODUCTS | 
TOO HARD TO INSTALL?’ 


f you are still using Ye Olde INSTALL.BAT File to install your product, there is a much 


etter way. Let's face it, the computer industry is maturing. What was entirely 
1dequate a few years ago is unacceptable today. If you have been requiring your 
>nd-users to use batch files, COPY, DISKCOPY, or RESTORE to install your distribution disks, 
/ou are making an unfavorable first impression with them. Not only are these methods 
drimitive, they have virtually no resilience to errors, and they rarely look professional. 





sua 
Se 





= 


is 





here is an alternative... 


NSTALL 3.0 will not only elegantly conquer your installation problems, if can also greatly | 
Ncrease your end-user’s confidence in your product by automatically checking the 
ntegrity of the distribution disk(s). 


NSTALL includes a 100% reliable CONFIG.SYS and AUTOEXEC.BAT file editor which can 
1sk for permission before creating/editing existing files, and always creates backup files. 


¢ Multiple source and target disks, multiple target subdirectories (which INSTALL will create if necessary). 

¢ Intelligently handles all DOS errors including open disk drive doors, unformatted and full disks, write protected disks, 
network violation errors, bad disk sectors, insufficient memory, etc. 

¢ Forget long sections of text in your documentation covering installation procedures. Instead, the installation section 

can now simply say "TYPE A:INSTALL" and INSTALL handles the rest. 

You can allow your end-users to only install parts of your product such as various device drivers. 

Fast, full-screen, text oriented windows interface. 

Quick, clean method of adding-in new features. 

High performance data compression will typically cut your number of distribution disks in half. 

Utilizes all available RAM for lightning-fast file transfers. 

INSTALL can create a single self-extracting (.EXE) file containing all of your distributions files. 

Installation logic may be based on the monitor (B&W/MONO/CGA/EGA/VGA), CPU (8086/268/386), DOS version, 

ANSIL.SYS, NetBIOS, LIM, 80x87, LPT/COM port presence, disk capacity, disk free space, etc. to allow you to install 

a highly machine-specific product without burdening the end-user with questions s/he may not understand. 

e Files up to 4.3 Gigabytes in size may be distributed by splitting the file across multiple distribution disks. 

¢ No royalties. Unlimited free technical support. No programming needed! 


ncludes C source code, make, project, and link files.30-day money-back guarantee. 


NSTALL offers 4 years of proven reliability that has been used by thousands of 
Jevelopers in 23 countries to install millions of copies of software including some of the 
nost prestigious products in the industry. We would like to add your name to that list. 


Call or FAX before 4:00 today and receive your order tomorrow! $249.95 + Shipping 
KNOWLEDGE DYNAMICS CORPORATION 1-800-331-2783 (Sales) 


4ighway Contract 4 Box 185-H, Canyon Lake, Texas 78133 1-512-964-3994 (International) 


MasterCard/VISA/COD/POs Welcome 1-512-964-3958 (24-hr FAX) 
1-512-964-3929 (24-ht_BBS) 
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PROGRAMMER’S WORKBENCH 


Listing One (Text begins on page 78.) 
#include <dos.h> /* i.e. just like MS C */ 
void note(); 

main () 


{ 
} 


void note(pitch, duration) 
int pitch, duration; 


{ 


note (440,500); 


int u,v; 
union REGS regs; 
unsigned int_count,int_duration, count, int_pitch; 
int pitch = 1190000/pitch; 
int duration = (duration*1821) /10000; 
regs.x.ax = 0; 
int86(Oxla, &regs, &regs); 
int count = regs.x.dx; /* internal count = lowest 16-bits of time*/ 
u = inp(0x61) | 3; /* Turn on channel 2 of 8255 using port 61h */ 
outp(0x61,u); /* send byte to back */ 
outp (0x43, 0xb6) ; /* set up I/O register */ 
outp (0x42, (char) int_pitch); /* send freq to latch */ 
outp (0x42, (int_pitch >> 8)); 
do { 


/* call timer */ 


regs.x.ax = 0; /* use timer to get end of duration */ 
int86(Oxla, &regs, &regs); 
count = regs.x.dx; /* use lowest 16-bits of count */ 

} while (count < int duration + int_count); 

v = inp(0x61) & Oxfc; /* turn off the sound */ 


outp (0x61,v); 
} 
End Listing One 
Listing Two 
#define outp(p,v) dx = p;al = v;asm(dx,al," out dx,al") 


#define inp(p,v) dx p;asm(dx," in al,dx",al);v = al 
unsigned char x,y,page = 0; /* globals for pc test */ 

void note(); 

main () 


{ 
} 


note (440,500); 


void note(pitch, duration) 
int pitch, duration; 
{ 
regSeax unsigned short ax; 
regSeax unsigned char al,x,y; 
reg$edx unsigned short dx; 
reg$ah unsigned char ah; 
/* this section was added for play */ 
unsigned int_count, int duration, count, int_pitch; 


if (duration == 0) return; 
int_duration = (duration*1821)/10000; 
ie We left the original interrupt as a comment for comparison purposes */ 
/* regs.x.ax = 0; call timer */ 
/* int86(0xla, &regs, &regs); */ 
[* int_count = regs.x.dx; internal count = lowest 16-bits of time*/ 
fx the inline assembly language is line for line identical in function 
although there is an obvious difference in format. */ 
ax = 0; 
asm(ax," int Olah", dx); 


int_count = dx; 


if (pitch==0) goto time it; 

int_pitch = 1190000/pitch; 
i? The port input is a little different using inline asm macros */ 
[* xX = inp(0x61) : 3; the original code becomes */ 

inp (0x61,x); /* Turn on channel 2 of 8253 using port 61H */ 

x=x 1 3; /* After read turn on lowest 2 bits */ 
[* The outp macro looks just like the outp function */ 

outp (0x61,x); /* send byte to back */ 

outp (0x43, 0xb6) ; /* set up I/O register */ 

outp (0x42, (char) int pitch); /* send freq to latch */ 

outp (0x42, (int_pitch >> 8)); 


time it: 
do { 
ax = 0; /* use timer to wait for end */ 
asm(ax," int Olah", dx); 
count = dx; 
} while (count < int_duration + int_count); 
inp (0x61,y); /* Turn off channel 2 */ 
y=y & 0Oxfc; /* use 1111 1100 to turn off lowest 2 bits only */ 
outp (0x61,y); 


End Listing Two 


Listing Three 


name sound4.c 

. 387 

assume cs:codeseg 

assume ds:dataseg 
codeseg segment dword er use32 public ’code’ 
dataseg segment dword rw use32 public 'data’ 


dataseg ends 
align 4 
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_note proc near 
push edi 
push esi 
push ebx 
MOV ebx, [esp]+16 
cmp dword ptr [esp]+20,0 
jne L17 short 
pop ebx 
pop esl 
pop edi 
ret 
align 4 

L17: 
mov ecx, 10000 
imul eax, [esp]+20,1821 
cdq 
idiv ecx 
mov edi,eax 
Mov ax, 0 
int Olah 
MOVZX esi,dx 
or ebx, ebx 
jne L16 short 
jmp L13 
align 4 

L16: 
mov eax, 1190000 
cdq 
idiv ebx 
mov ebx, eax 
MOV dx, 97 
in al, dx 
or al,3 
Mov dx, 97 
out dx, al 
mov dx, 67 
mov al,182 
out dx, al 
Mov dx, 66 
mov al,bl 
out dx,al 
MOV dx, 66 
mov eax,ebx 
shr eax,byte ptr 8 
out dx,al 
align 4 

L14: 
align 4 

L13: 
mov ax, 0 
int Olah 
mMOvzx ecx, dx 
mov eax,edi 
add eax,esi 
cmp eax, eCx 
ja L13 short 
mov dx, 97 
in al,dx 
and al,252 
mov dx, 97 
out dx,al 
align 4 

L9: 
pop ebx 
pop esi 
pop edi 
ret 
align 4 

note  endp 


dataseg segment dword rw use32 public ‘data’ 


7_ax ax local 
;_al al local 
;_X al local 
i_y al local 
;_dx dx local 
7_ah ah local 
;_int_count esi local 
;_int_duration edi local 

7_count ecx local 

7 ant pitch ebx local 
;parameters 

;_pitch ebx local 
;_duration [esp]+20 local 

dataseg ends 


end 


End Listing Three 


Listing Four 


#include <stdio.h> 

#include <dosl.h> 

#include <ctype.h> 

fF ***xWARNING*** if you change the scale so that it starts 
on middle C, instead of A, the resulting routine will 
exhibit not only the look and feel of the BASIC PLAY 
command, but its sound as well. 


x 

/ 

#define aa 440 /* middle a = 440 */ 
#define as 469 /* a sharp */ 
#define bb 493 

#define cc 523 /* middle c */ 
#define cs 556 

#define dd 587 

#define ds 624 


(Listing continued on page 124) 
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Cpsi lon has what you've been missing. . . 


rogrammer's | 
editor Epsilon doesn't implement its features halfway. When we came out 
with Undo, we remembered Redo. Our extension language doesn’t just 
ee & borrow a few keywords from C, it has C’s syntax and expressiveness. 





Maybe that’s why Epsilon won a BYTE Award of Distinction. 
Compare Epsilon to your editor, and see what you’re missing. . . 




















B Y T E 
A w A R D OF 


osmenon @PSIlon Brief 





Undo Complete Undo AND Redo! Any sequence of edits you 
and make can be undone, one at a time, with the Undo key. 

R You can even undo your undo’s with the Redo key. That’s 
CO | very important: it lets you casually use the Undo facility. 


Its “Complete Undo” does not let you 
redo. So be careful with that Undo key, 
because it’s irreversible. Once you undo 
something, it’s gone forever! 





Extension Our extension language, EEL, gives you the syntax of C 

and a rich set of data types. All commands are written 
Language in EEL, and you get source code to all of them. Best of 
all, EEL is fast! 


Its “macro” language has a very limited set 
of data structures (unlike C or EEL). Most 
of Briefs standard commands were not 
written in its macro language. Why not? 


Compiler When you run another program inside Epsilon, it can first 
shrink to 10K, then run your program. You see your 


It can shrink and run your program, but it 
uses command line redirection to gather the 





Journaling compiler run, see the error messages, etc. You can even 
give the program input. And when your program finishes, 
you're put back into the editor, and a complete 
input/output typescript is there in an Epsilon buffer! 


output of your program. This means that you 
COMPILE BLIND! If there are many error 
messages, you wait until the compiler finally 
exits to see ANY of them! 


Multitasking Run utilities, compilers, even the DOS command It has no comparable multitasking facility. 
i processor concurrently, while you continue to edit. 
Compiles | it your program is very large, you can use Compiler 


Journaling. 


It will use EMS memory only to swap itself 
out, not to store your buffers. So, you're 
more cramped for memory than you should be. 


EMS Epsilon makes extensive use of EMS memory, if you have 
it. It uses EMS both to store what you’re editing, and to 
Support store itself when you swap Epsilon out with a keystroke. 





Trademarks: “Epsilon” and “Lugaru” are trademarks of Lugaru Software Ltd. “Brief” is a trademark of Underware, Inc. 
Information on Brief is from the manual and conversations with their technical support staff. Versions: Epsilon 4.0, Brief 3.0. 


Epsilon is available for DOS, OS/2, Xenix & 386/ix. Here's a partial list of features: 


C-like extension language, called EEL Source level debugger & profiler for EEL Multitasks compilers, even under DOS 

Source code to all commands Do interrupts from EEL (DOS) Language support (C, Lisp, etc.) 

Convenient multilevel undo plus total redo — Call any dynamic-link library for EEL (OS/2) Completion on file names, commands, tags, ... 
Scans compiler errors (customizable) Saves deleted text (n times) Full command line editing 

Swaps out of memory for big compilers Navigate through your directory structure Optional backups 

Unlimited file size, number of files Not copy protected, for your convenience Regular expression search and tagged replace 


On-line tutorial for quick startup 

As many windows as will fit on the screen 
Supports large displays (like VGA & EGA) 
Context sensitive help autoconfigures 

Tags package indexes subroutine definitions 
Files can be larger than available memory 





Ask about our free trial! 


$1 95 60-day money-back 
direct guarantee! 






Fully utilizes EMS memory : : 
Interactively customizable keyboard Orders & Info: (41 2) 421-5911 

EMACS-style command set FAX: 412.421.6371 

pe yen aluerle Lugaru Software Ltd. / 5843 Forbes Avenue / Pittsburgh, PA 15217 
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PROGRAMMER’S WORKBENCH 


Listing Four (Listing continued, text begins on page 78.) 


#define ee 659 
#define ff 698 
#define fs 739 
#define ag 783 
#define gs 832 
#define outp(p,v) dx = p;al = v;asm(dx,al," out dx,al") 
#define inp(p,v) dx = p;asm(dx," in al,dx",al);v = al 
unsigned char x,y,page = 0; /* globals for pc_test */ 
void note(); 
void look_ahead_and_toot(); 
void play(); 
int check length(); 
int check_integer(); 
int gobble dots(); 
7 /* the buffer for the notes to be input */ 
int pitch; 
int count = 0; /* points to current location in string */ 
int length = 4; /* default is a quarter note */ 
int tempo = 240; /* = 120 beats per minute */ 
int duration = 60; /* = tempo/length =1/4 @ 120 bpm */ 
int shift = 0; /* current octave shift factor */ 
char c_note; /* the current note character used for diag */ 
main () 


{ 


} 
void pla 


/* Stereo version of Heart and Soul for two PCs 
lifted from a BASIC program Transcribed by 
Michael Benjamin Fried - Age 11 */ 

/* bass line plays on first machine */ 

play( "T150L804CCEEAACCDDFFO3GG>BBO4") ; 

play( "L804CCEEAACCDDFFO3GG>BBO4") ; 


/* while melody plays on a second */ 
play( "O4L4CCC.P32C8B8A8B8C8D8P32") ; 
play( "EEE.P32E8D8C8D8E8F8G.C.>A8<G8F8E8D8CB8A03G8FFGGoO4") ; 


y (in_string) 


char in_string[]; 


{ 


int temp duration; 


int temp 
char 

count = 
printf (" 
while (c 
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/* gets set by L or change in 1 */ 


octave; /* holds temporary octave */ 

n_note; 

0; 

note = %s \n",in string); 

_nhote = in _string[count]){ /* loop till out of characters */ 


/* look ahead 1 char now */ 


n_note = in string[count+1]; 
/* switch on current note */ 


switch(c_note) { 


case ‘A’: /* do a,a sharp and a flat */ 
case ’a’: 
pitch = aa; /* set the default to A natural */ 
if ((n_note == ’#’)ii(n_note == ‘+’)) { 
pitch = as; /* it was A sharp */ 
countt+t+; 
} 
if (n_note == '-’){ /* it was A flat */ 
pitch = gs; /* A flat == G sharp */ 
count++; 
look_ahead_and toot (in_string); /* self explanatory */ 
break; /* line duration */ 
case 'B’: /* Bis just like A */ 
case 'b’: 
pitch = bb; 
if ((n_note == ’#')i:(n_note == ‘+’)) { 
pitch =-cce; /* B sharp is actually C°*/ 
counttt+; 
} 
if (n_note == ’-’){ 
pitch = as; /* B flat is A sharp */ 
count++; 
look_ahead_and_toot(in_string); 
break; 
case 'C’: /* © a6 40st: like: A 47 
case 'c’; 
pitch = cc; 
if ((n_note == ’#’):i(n_note == '+’)) { 
pitch = cs; 
count++; 
} 
if (n_note == '-’){ /* C flat is actually B */ 
pitch = bb; /* and a perfectly legal note */ 
count++; 
look_ahead_and_toot(in_string); 
break; 
case 'D’: /* D is like A */ 
case 'd’: 
pitch = dd; 
if ((n_note == ’#'):i(n_note == '+’)) { 
pitch = ds; 
counttt+; 


} 

if (n note == "+"){ 
pitch = cs; /* D flat is C sharp 
count++; 


look_ahead_and_toot(in_ string); 


break; 
case 'E’: /* E is like A */ 
case 'e’; 
pitch = ee; 
if ((n_note == *#").1.(n_note == '+")){ 


pitch = ff; /* E sharp is F */ 


count+t+; 


t 


counttt; 


} 

if (n_note == ’-'){ 
pitch = ds; 
count+t; 


look_ahead_and toot (in string); 


break; 
case 'F’; /* F is like A */ 
case 'f’; 
pitch = ff; 
if ((n_note == ‘#'):.(n_note == ‘+’)){ 
pitch = fs; 
count+t; 
} 
if (n_note == ’-'){ 
pitch = ee; 
counttt+; 
look_ahead_and_toot (in_string); 
break; 
case 'G’: /* Gis like A */ 
case ‘9g’: 
pitch = gg; 
if ((n_note == ’#'):. (pitch == ’+’)) { 
pitch = gs; 
countt+; 
} 
if (n_note == ’-’){ 
pitch = fs; 
countt+t; 
look_ahead_and_toot (in string); 
break; 
case 'L’: /* set length */ 
case ‘1’: 
if(temp_duration = check_length(in_string) ) { 
duration = tempo/temp duration; 
length = temp duration; 
} 
break; 
case '>’ /* go up an octave */ 
shiftt++; 
break; 
Case "<4 /* go down an octave */ 
shift--; 
break; 
case '0’: /* chose an octave */ 
case ‘0’: 
temp_octave = n_note - ‘0’; 
if ((temp_octave < 0):: (temp octave > 6)){ 
printf ("octave out of range"); 
break; 
} 
switch(n_note) { 
case ‘0’: 
shift = -4; 
break; 
case ‘1’: 
shift = -3; 
break; 
case '2': 
SHift, = =25 
break; 
case '3’: 
shift = -1; 
break; 
case ‘4’; /* default octave */ 
shift = 0; 
break; 
case '5’: 
shift = 1; 
break; 
case '6’: 
shift = 2; 
break; 
} 
count ++; /* advance over digit */ 
break; 
case 'P’: /* set pause/rest length */ 
case ’p’; /* issue note of freq 0 to rest */ 
case 'R’: /* computer scientists pause */ 
ease "2's /* but musicians rest! */ 
pitch = 0; 
look_ahead_and toot (in string); 
break; = - 
case ‘T’: /* set tempo */ 
case ‘t’: 
temp_duration = check_integer(in_ string); 
if ((temp duration < 32):: (temp duration > 255)) 
break; 7 
tempo = temp duration*2; 
duration = tempo/length; 
break; 
case ’ ': /* spaces are gobbled up */ 
break; 
default: /* had a problem so issue error */ 


printf ("Syntax error in character %d \n",count); 
goto terminate; 


} 


/* advance pointer to next note */ 
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terminate: 

} 

/* The trickiest part of the syntax are the optional trailers that 
can follow each note. These include an optional integer that 
specifies a quarter (4) or eighth note (8) (or any integer 
between 1 and 64) and 1 or more optional dots, each of which 
increases the current duration by half. This section parses 
these trailers, and then uses the global variables that contain 
the tempo and octave to compute the duration and pitch, and 

; then call note. Note that rests are handled as notes of 0 pitch. 

* 


void look_ahead_and_toot(in_string) 

char in_string[]; 

{ 

int temp _duration; 

if (temp duration = check _length(in_string)) /* if non zero have a temp */ 
temp duration = tempo/temp duration; /* compute new duration */ 

else 


temp duration = duration; /* if 0 play default duration */ 


/* check for dot, and if found call gobble dots to increase temp duration */ 


if’ {in _string(counttl] == *.") 
temp duration = gobble dots(temp_duration,in_ string); 
/* range check octaves */ 7 
if (shift < -4) 
shift = -4; 
if (shift > 2) 
shift = 2; 
/* shift to change octaves */ 
if (shift < 0) /* negative shifts go down in frequency */ 
pitch = pitch >> -shift; 
else /* positive shifts go up in frequency */ 
pitch = pitch << shift; 
/* optional diagnostics for debugging */ 
printf ("sc = $d duration = %d octave = d\n", 
c_note,pitch,temp duration, shiftt4); 
/* finally we are ready for a little toot */ 
note (pitch,temp duration) ; 
} 
int gobble dots (duration_in,in_string) 
int duration in; 
char in_string[]; 
{ 
int duration_out; 
int duration increment; 
duration out = duration_in; 
duration increment = duration in; 
/* gobble as long as there are dots adding half the prior duration inc */ 
while (in_string[count+l] == '.'){ 
duration increment = duration increment >> 1; /* divide it by 2 */ 
duration out = duration out + duration_increment; 
count+t; /* advance string pointer */ 
} 
return (duration out); 
} 
/* returns 1-64 in range 1-64 else returns 0 */ 
int check length(in string) 
char in_string[]; 
{ 
int result = check_integer(in_string); 
if ((result < 1) (result > 64)) 
return (0); /* out of range */ 
else 
return(result); /* in range */ 


} 
/* 0 1 to 999 if 1 - 999 found and advances count */ 
/* returns 0 otherwise */ 
int check integer (in_string) 
char in_string[]; 
{ 
int n char,m char,1l char; 
n char = in string[count+l] - ‘0’; 
if ((n char > 9) (n char < 0)) return (0); /* return if out of range */ 
count++; 7 /* we found a digit so advance count */ 
m char = in string[countt+1] - 'Q’; ° /* check next integer */ 
if ((m_char > 9) (m_char < 0)) 
~ return (n_char); 
else 


countt+; /*found second didit so advance again */ 


1_char = in_string[counttl] - "0": 
if ((l1 char > 9) (1 char < 0)) /* check last possible digit */ 
~ return (n_char*10+m char); /* compute 2 digit result */ 
else { 
countt+; /* we found a third and last digit */ 
return(n_char*100+m_char*10+1_char); 
} 
} 
/* optional main program works as an interactive interpreter */ 
char note _string[120]; 


/* 
main () 
{ 
do{ 
puts("enter note "); 
fflush(stdin) ; 
gets (note string); 
printf("\nnote string = %s \n",note_string); 
play(); 
} while (strlen(note string) > 0); 
/ 


End Listings 


Dr. Dobb’s Journal, June 1990 








Use Winpro To Generate C Code Skeletons. 


Save Hours Of Programming Work 
When You Develop Applications For 


Windows or OS/2 PM. 


Add Winpro/2 for Microsoft Windows, Winpro/PM 


for OS/2 Presentation Manager to your software 
development toolkit. Five minutes after completing 
your resource definition file, have a working C code 
framework. Ready for you to fill in with your appli- 
cation-specific code. 


Want to change your menu structure? Add addi- 


tional dialogs? Just modify your resource definition 
file, rerun Winpro, and insert the new code. 


"Offers the flexibility an experienced programmer will 


require." Charles Petzold, PC Magazine, Aug ’89. 


"Generating code for dialog box procedures is where 


Winpro/2 really shines." Marc Adler, Microsoft Systems 
Journal, Jan 90. 


"The code generated by Winpro/2 is by far the most 
stylish and well-commented code produced by any of 
the code generators reviewed here." Gen Kiyooka, Com- 
puter Language, Mar ’90 


$395. 30-day money-back guarantee. 
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M2VMS™ Release 4.1-2 


The Reliable Tool for Software Professionals 


The Modula-2 development system for VAX 
by TERRA Datentechnik offers full flexibility 
within the VMS environment. M2VMS 4. 1-2 
is based on the well-known Modula-2 com- 
piler by LOGITECH that has recently been 
aquired by TERRA Datentechnik. 


Highlights 

supports the VMS-Debugger 
supports LSE 

interfaces the operating system 
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Make Utility 
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code BS 
maintenance contract available Bas % 
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CH - 8703 Erlenbach Switzerland 
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Speeding up an old data compression favorite 


hen the October 1989 issue 

of Dr. Dobb’s came out, I 

was delighted to see Mark 

Nelson’s article on LZW 

data compression (“LZW 
Data Compression”). Mark presented 
a clear description with code of a basic 
LZW compression program. As I used 
the program, however, I discovered 
that for some larger files, even when 
using 14-bit codes, the compressed file 
would actually be larger than the origi- 
nal. Because Mark’s intention was to 
enlighten and not to complicate the 
subject, his code omitted some opti- 
mizing additions to LZW compression. 
Although, he did describe some opti- 
mization techniques — including the 
use of variable code size — as well as 
clearing the string table after the com- 
pression ratio degrades. 

The original program’s lack of per- 
formance on larger files can be traced 
to the fixed-length string table. When 
the table is full, new codes cannot be 
added and must be sent out in charac- 
ter form with no compression done. 
When this happens, you could actually 
be sending out an 8-bit character using 
a 14-bit code; this explains how the file 
can get larger. If your incoming data 
changes, even moderately, with the 
string table full, then the compression 
ratio begins to degrade rapidly. 

With this in mind, imagine compress- 
ing a small file with your code size set 
at 14 bits. If your string table needs less 
than 511 entries, you could have used 
9-bit codes saving 5 bits per output 
code. Of course you wouldn’t want to 
fix your code size at 9 bits because the 


Shawn is a programmer/analyst for Mi- 
croBilt Inc. of Atlanta, Georgia. You 
can reach him through Interlink; or 
write to him at 2127B Powers Ferry 
Rd., Marietta, GA 30067. 


126 


Shawn M. Regan 


compression on larger files would suf- 
fer. What you would like is for the code 
size to start at 9 bits and if that table 
filled, the code size could increment 
to 10, thus providing optimal perfor- 
mance on any size file. 


My Implementation 

One of the more elegant features about 
LZW compression are that the compres- 
sion and expansion programs build the 
exact same string table for a particular 
file. This means at the same point the 
compression program’s string table is 
full so is the expansion program’s. At 
this point you should try to adjust your 
code size. As you can see in the com- 
pression section of Listing One (page 
127), I wait until after I have sent out 
the current code before the code size 
is incremented because the current code 
belongs to the previous code size. No- 
tice in the compression section I incre- 
ment when the code size is greater 
than max_code, while in the expan- 
sion program I increment when the 
code size equals max_code. This is be- 
cause the expansion section is work- 
ing a code behind using old_code in- 
stead of new_code. It is also because 
of this that I must handle a special case 
when incrementing the code size on 
an end-of-file condition. 

Finally, you should also set some 
arbitrary limit on your code size. If you 
use 14 bits, your codes stay well under 
the positive integer maximum of 32767, 












115,094 40,636 
11,054 4,811 
230,582 141,659 
16,944 12,905 
90,610 20,806 
110,592 64,804 


Table 1: Typical compression levels using revised LZW 


which suits the program without any 
modification. Don’t forget your table 
size needs to be a prime number some- 
what larger than 2°>°MAX_CODE_SIZE. 
To implement the table clearing, start 
by monitoring the number of bytes (not 
codes) read in and then sent out. After 
a predetermined interval, compute the 
new compression ratio and check it 
against the previous one. If the ratio 
has increased, you need to clear out 
the string table and start over. You then 
need a device to send a signal from the 
compression program to the expan- 
sion program to clear the string table. 
The easiest way to accomplish this is 
by reserving the first of the 9-bit codes. 
In my example, I used 256 as the 
CLEAR_TABLE code. I also used 257 
as the TERMINATORto signal the end-of- 
file condition. This means the first avail- 
able code for compression is now 258, 
which I’ve defined as FIRST_CODE. 
When combining both methods, you 
should not experience any degrada- 
tion in compression until the table is 
full. When the table is full, you will first 
check to see if you can increase the 
code size. If you can’t, then (and only 
then) will you start to monitor your 
compression ratio at your predefined 
interval and ultimately clear the string 
table. When this happens, you can re- 
set your code size back to 9-bits be- 
cause basically you’re starting from 
scratch. Although you still won't get 
performance as good as PKZIP (from 








35 % .C -C program 

43 % .C -C program 

61% .EXE - Executable 

76% .EXE - Executable 

22% . TXT - Redundant text file 
58 % .LIB - C object library 





Dr. Dobb’s Journal, June 1990 


LZW REVISITED 


PKWARE, Glendale, Wisc.), you now | Listing One 
have the SOUTCE for a much improved /* Basic LZW Data Compression program published in DDJ October 1989 issue. 


version Of this basic LZW compression |: 7 0F+ginal Author: Mark R. 
* Updated by: Shawn M. R 


program. Table 1 lists some typical COom- * Added: - Method to clear table 1 when compression ratio degrades 
‘ ) 7 : : : * - Self adjusting code size capability (up to 14 bits) 
pression levels I’ve achieved with this * Updated functions are marked with "MODIFIED". main() has been updated also 
program. oo with -ml (large model) for MAX BITS == 14 only 
* 


#include <stdio.h> 


Your Implementation 


Even though the program works well | #define INIT BrTs 9 - 
#define MAX BITS 14 * Do not exceed 14 with this program */ 


as is, there are still some improvements | #define HASHING_SHIFT MAX BITS - & 
that can be made. As Mark suggested, | ¢:¢ vax arts == 14 ee ee ee, 


the input and output routines can be #define TABLE SIZE 18041 * number somewhat larger than 2*MAX BITS.*/ 
#elif MAX BITS == 13 7 


#define TABLE SIZE 9029 
#else 

#define TABLE SIZE 5021 
#endif 7 


#define CLEAR TABLE 256 


For better compression, 7 
#define TERMINATOR 257 * = 
you might experiment |e US 08 

with table clearing #define MAXVAL(n) (( 1 <<( n)) -1) /* max value formula macro */ 


de to flush the string table */ 
mark EOF Condition, instead of MAX VALUE */ 
First available code for code value table * / 


unsigned input_code(); 
void *malloc(); 





int *code_value; /* This is the code value array */ 
unsigned int *prefix code; /* This array holds the prefix codes */ 
unsigned char *append character; /* This array holds the appended chars */ 
unsigned char decode_stack[4000]; /* This array holds the decoded string */ 
modified for More speed. Also, a more int num_bits=INIT BITS; /* Starting with 9 bit codes */ 


sophisticated hashing routine might unsigned long bytes _in=0,bytes out=0; /* Used to monitor compression ratio */ 
int max_code; /* old MAX CODE */ 


speed it up. For better compression, unsigned long checkpoint=CHECK TIME; /* For compression ratio monitoring */ 
you might experiment with table clear- |} was cine azge, char *arqv)) 


ing. I found on .EXE files the com- | ‘ | | | | 
FILE *input file, *output_file, *lzw_file; 


pression ratio drops steadily after a code char input file name[81]; 
: : /* The three buffers for the compression phase. */ 
SIZE Increase, then bottoms out and code value=malloc(TAELE SIZE*sizeof (unsigned int)); 
then starts rising again. If you suspend prefix code=malloc(TABLE SIZE*sizeof (unsigned int)); 
. ; ; append _ character=malloc (TABLE _SIZE*sizeof (unsigned char) ); 
clearing until you are back to just be- 
: : if (code_value==NULL :: prefix_code==NULL :: append_character==NULL) { 

low the starting ratio you can get a printf("Error allocating table space!\n"); 
somewhat better compression. I also oe 
noticed that in smaller text files, I can /* Get the file name, open it, and open the LZW output file. */ 

: : if (argc>l) 
at times get better compression by clear- coco) Lape elle nese paraylti)s 
ing the table instead of increasing the else | | 

; printf ("Input file name: "); 

code size. Be careful, however, about scanf ("$s", input. file name); 

. . ° . } 
basing any optimization methods on ‘neue Seteefopen inpik. Phe wana eR 
any preanalysis of the data. If, for ex- lzw_file=fopen("test.1zw","wb") ; 

i : , if (input file == NULL .. lzw file == NULL) { 

ample, you wish to use it with stream printf("Error opening files\n"); 
I/O you will be working with buffers ; 
and not files where any preanalysis max code = MAXVAL(num_bits); /* Initialize max value & max _code */ 


: “cc: compress (input_file,lzw file); /* Call compression routine */ 
might be difficult or useless. 

fclose(input_file); 
fclose(lzw file); 


Availability free (code_ value) ; /* Needed only for compression */ 
All source code is available on a single law file=fopen("test.1zw","rb") ; 
; ‘ ‘ output_file=fopen("test.out", "wb") ; 
disk and online. To order the disk, ce zm file se NULL !! output file <= NULL) { 
| send $14.95 (Calif. residents add sales a opening files\n"); 
| exX1 
tax) to Dr. Dobb’s Journal, 501 Galves- 
- ton Dr, Redwood City, CA 94063, or | mimbite~murars: | /* Revinitialize for expansion */ 
call 800-356-2002 (from inside Calif.) expand(lzw file,output_file); /* Call expansion routine */ 
or 800-533-4372 (from outside Calif.). fclose(lzw file); /* Clean it all up */ 
' { fclose(output_ file); 
Please specify the issue number and ee a, 
format (MS-DOS, Macintosh, Kaypro). | free (append_character) ; 
Source code iS also available online /* MODIFIED This is the new compression routine. The first two 9-bit codes 
xh b eserved for communication between the compressor and expander. 
through the DDJ Forum on Compu- | 777° een resenve on M P 


Serve (type GO DDJ). The DDJ Listing | compress (FILE *input, FILE *output) 
Service (603-882-1599) supports 300/ unsigned int next_code=FIRST CODE; 
1200/2400 baud, 8-data bits, no parity, unsigned int character; 


unsigned int string_code; 


1-stop bit. Press SPACEBAR when the unsigned int index) ee 
ee int i, es purpose in * 
system ANSWEIS, type: listings (lower- ae new, /* New compression ratio as a percentage * f/f 
case) at the log-in prompt ratio old=100; /* Original ratio at 100% */ 
for (i=0;i<TABLE SIZE;i++) /* Initialize the string table first */ 
DDJ code _value[i]=-1; 


printf ("Com ipressing\n"); 


string code : yetniE /* Get the first code */ 
Vote for your favorite feature/article. (continued on page 107) 
Circle Reader Service No. 12. 
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PROGRAMMING PARADIGMS 


HyperCard and (or?) 
Hypertext 


he only honest way to start a 
column about the suitability of 
this product for hypertext is by 
quoting its creator: 


‘I don’t think of HyperCard at 
all as a hypertext system. It is not a 
very good one.” — Bill Atkinson. 


That would also be the end of the 
column if every father knew his own 
child. But out there on the nets over 
the past three years, HyperCard has 
been doing things Bill never envisioned, 
and is playing an important role in the 
development of hypertext systems. The 
role is a research role. 


Field Research 

Since Apple caved in to Atkinson’s ulti- 
matum, agreed that HyperCard was sys- 
tem software, and began bundling it 
with every new Macintosh back in 1987, 
HyperCard authors of varying levels 


of skill have been all over the nets, » 


showing their work with the obnox- 
ious eagerness of a teacher’s pet in 
grade school. I predicted in DDJ back 
then that the release of HyperCard 
would lead to a hyperglut of trashware, 
a pretty obvious prediction. 

Not all this hyperactivity is trashware; 
and even in the trash-there are some 
interesting items. Jjean-Louis Gasseé says 





Michael Swaine 





that this latter point is not lost on trash 
can grubbing “MacLeak” reporters, but 
he’s just grumpy because he had to 
give back the company car.) (Many 
Americans discovered the joy of search- 
ing through trash cans in the 1980s, for 
which Apple must share the credit with 
Ronald Reagan.) (The parenthetical note 
is one technique that writers use to 
overcome the limitations of linear text. 
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It’s a kludge.) Interesting items, I was 
saying, thinking particularly of what 
can be learned from that “interesting 
experiment” that didn’t quite work out. 
A lot of HyperCard development fits 
this description. 

I want to call this undisciplined, un- 
controlled, enthusiastic amateur Hyper- 
Card development work “research,” but 
this is bending the word. Then again, 
magazines sometimes use the word “re- 
search” to refer to casual reader-inter- 
est surveys, which is just as bad. These 
two uses are, and you saw this word 
here first, ‘“isotropes” — they’re simi- 
larly bent. 

Moving right along. There is a lot of 
serious, professional, controlled experi- 


mentation in hypertext going on in uni-_ 


versities and in the few corporate re- 
search labs that haven't turned into short- 
range product development shops. In 
particular, the people at Brown Univer- 
sity’s IRIS (Institute for Research in In- 
formation and Scholarship) have been 
following one thread of hypertext re- 
search ever since Ted Nelson coined 
the term, and have demonstrated the 
virtues of hypertext for promoting non- 
linear thinking. This kind of result does 
not come from playing with Hyper- 
Card and uploading your work to Com- 
puServe. 

But in a looser sense, these Hyper- 
Card experiments, failed and flawed 
as they may be, are crude offerings of 
aspects of hypertext. Seeing what has 
been tried, and how it has been re- 
ceived out there among the savages, is 
an education in hypertext field research. 

“Crude offerings,” I say, but I do not 
mean it as a criticism of the developers. 
HyperCard is, as Atkinson acknowl- 
edges, not a hypertext system. What is 
it, and why are people using it to do 
hypertext-like things? Atkinson calls it 
a “software erector set.” That’s pretty 
accurate, down to the point made by 





one critic that when you build things 
with an erector set, you get things that 
look like they were built with an erec- 
tor set. HyperCard provides a limited 
set of classes of objects: Stacks (which 
are HyperCard documents), cards (in- 
formation chunks displayed as screen- 
sized bitmap), fields for text (which 
can exceed the screen size by scroll- 
ing), and buttons (basically icons with 
attached programs). In limited object- 
oriented style, HyperCard lets you cre- 
ate stacks by writing message handlers 
and associating them with instances of 
these classes of objects. The basic meta- 
phor is of a stack of 3 x 5 cards, each 
card displaying text and/or graphics, 
and the cards linked to one another 
quite freely, with buttons being the 
usual tool for following the links. 

This model supplies several things 
that a hypertext system ought to have. 
The user can create links among chunks 
of information without doing any pro- 
gramming and the programmer can cre- 
ate different links relatively easily. Hy- 
perTalk, the programming language in 
HyperCard, is interpreted, so it’s a quick 
development tool, yet it’s powerful for 
an interpreted language. Apple gives 
HyperCard away with every new ma- 
chine, so you can count on Mac users 
having it, and this also has led to a lot 
of people having fiddled with it, so 
HyperCard is helping to spread famili- 
arity with some hypertext ideas. 

It also lacks some things a hypertext 
system needs. It has no built-in naviga- 
tion system, although Apple encour- 
ages stack developers to include maps 
in their stacks. There is nothing analo- 
gous to a browser. HyperCard’s links 
are coarse-grain links, taking the reader 
from card to card. Fine-grain linking, 
triggering off items the size of an indi- 
vidual word, is possible, but is not in- 
herent in the product. HyperCard has 
no text links. 
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In Search of the Missing Link 

The biggest failing of HyperCard for 
anyone interested in hypertext is the 
lack of text links. By the time this col- 
umn sees print —I’m writing this in 
January, believe it or not — Apple 
should have released Version 2.0 of 
HyperCard, widely expected to imple- 
ment some kind of text links. I think it’s 
fairly safe to predict that Apple’s text 
links will not satisfy all those people 
who want HyperCard to -be a better 
hypertext tool. 

The text link solution supported in 
Version 2 is likely to be an extension 
of the button model. As I write this, 
buttons are the chief tool in HyperCard 
for supporting links. A button is re- 
stricted to one line (usually a word or 
two) of text. Fields are where you put 
text in HyperCard. Fields were never 
designed to support linking. 

HyperTalk programmers have been 
coding workarounds for this failing since 
HyperCard was released, though, and 
some of these are effective in limited 
domains. The work these programmers 
are doing with text links typifies the 
kind of work being done with Hyper- 
Card in other hypertext or hypermedia 
areas, and it shows how easy it is to 
test alternative hypertalk user interface 
techniques using HyperCard. 

What Atkinson gave us is the button. 
To create a link to another section (card) 
of a HyperCard document (stack) or 
to another stack, you create a button 
and link it to the card or stack. The link 
is by default unidirectional, except that 
the user can always return from a linked 
card via a standard key combination 
or menu selection. If you want explicit 


bidirectional links, you have to create 
and link two buttons. (Buttons can also 
be used to trigger pop-up fields, for 
such fine-grained hypertext purposes 
as displaying, in a pop-up window or 
field, a definition of a term.) 

The first thing many people did when 
they started working with HyperCard 
was to place an invisible button over a 
text field or a graphic to make some- 
thing happen when the text or graphic 
was clicked on. The earliest stacks from 
Apple used this technique. One early 
third-party developer who made good 
use of such invisible buttons is Amanda 
Goodenough, whose AmandaStories 
stacks showed one way to author inter- 
active, child-directed stories for young 
readers. But the buttons were con- 
strained to be rectangles and were not 
really connected with the text or art 
with which they were associated. 
Change the text, copy the art and paste 
it elsewhere, move the button, and the 
button is no longer associated with the 
text or graphic. 

Soon after HyperCard’s release, Keith 
Rollin of Apple demonstrated how to 
write a HyperCard external command 
to implement region buttons. These but- 
tons, which used QuickDraw regions, 
could take on arbitrary polygonal 
shapes. This development, along with 
the fixed bitmap of a card (which makes 
screen position a somewhat reason- 
able way to refer to a picture), appears 
to make transparent buttons fairly use- 
ful for linking off pictures. Good stacks 
continue to be developed using this 
technique. But it doesn’t do the job for 
text: You can’t even change the font in 
a field without having to reposition the 





button. For hypertext linking, you need 
to be able to link off text, not off a 
screen position. 

One step toward better linking might 
be to extend the find facility of Hyper- 
Card. Users can already select text in a 
field and perform a find operation. Why 
not insert a step between selection of 
the text and the conventional search? 
If the text selected is on a list of hy- 
pertext link words, follow the link; oth- 
erwise, let the find proceed as usual. 
Harvey Chang and Steve Drazga are 
two stack developers who extended 
the find function. Listing One (page 
153) shows Drazga’s hypertext tech- 
nique while Chang’s is in Listing Two 
(page 153). Chang’s technique starts 
by allowing the user to select any con- 
tiguous text, even dragging across word 
boundaries. Then it attempts to use the 
selected text as the name of a card ina 
“gotocard...” command. If that fails, 
it uses the selected text as a conven- 
tional search string. His implementa- 
tion suffers from the requirement that 
the user select text, then explicitly click 
on a hypertext button. 

There are a couple of problems with 
this technique as an approach to hy- 
pertext. (Chang, I should point out, 
doesn’t call it that.) First, it doesn’t give 
the reader any indication of where the 
links are. Second, it raises the question 
of what unit of text can serve as links. 


Which Text is Hyper? 

Chang’s technique doesn’t identify the 
links, so the reader must hit them by 
chance. In other hypertext systems, the 
linking text is often identified by a 
change in type style: Boldface, italic, 


World Class Software Security WW 








The parallel port interface (PPI) connects between the printer port on a PC and the 
printer cable. The PPI holds two Key Tags, one on each side. Each Key Tag contains 
a secure custom chip which is pre-programmed by Glenco to only work with the 
assigned software package. A second Key Tag can be employed to protect another 
package, or may be used to turn other software packages “‘on’’, remotely or on-site. 


¢ STANDARD KEY TAG - Software is 
protected for an unlimited number of 
executions. They are pre-programmed to 
include a sequentially assigned S/N. 

¢ COUPON KEY TAG - Software is valid for 
a preset number of executions. The Coupon 
count can be reset remotely or on the cust- 
omers site by using a second update Key Tag. 
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¢ READ/WRITE KEY TAG - With 
programmable memory. Perfect for companies 
which have multiple products or a product with 
several optional modules. By having several 
packages protected using one Key Tag, your 
costs are lowered. 


¢ DURATION KEY TAG - Has a clock on 
board. (Available late 89) 
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Call or write for more information. 


Secure software and data with reliable, effective 
protection products that won’t burden honest users. 


Glenco is a world leader in the area of software security products and 
services. Our copy protection products and data security products are second 
to none. They are designed to function on a wide variety of third party 
hardware. We have over 3500 satisfied software firms utilizing our products. 
We also have a full line of disk based protection systems. 


¢ MACHINES SUPPORTED - IBM 
PC/XT/AT & PS/2, Macintosh 


@ OPERATING SYSTEMS - MS-DOS, 
XENIX, Network, Finder, & Multifinder. 


¢ LANGUAGES/COMPILER - Over 50, 
including runtime packages, data bases and 
spread sheets. We have a non-programmers 
interface as well. 





GLENCO 
ENGINEERING INC. 


SERVING THE SOFTWARE INDUSTRY SINCE 1979 


270 Lexington Drive, Buffalo Grove, IL 60090, (708) 808-0300, FAX 808-0313 
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underlining, or all of these, may be 
used. HyperCard doesn’t make such 
an approach easy. Text fields in Hyper- 
Card are impoverished text of a single 
font, size, and style. One stack devel- 
oper, Gregory Nelson, investigated what 
it would take to create even the ap- 
pearance of rich text in HyperCard fields. 
He faked rich text by using 10 (!) over- 
lapping fields and a thoroughly un- 
workable text-entry procedure. That 
blind alley is thoroughly mapped, 
thanks to Nelson. 

John Anderson had better luck in 
introducing style variations in Hyper- 
Card fields, by creating a specialized 
font that included italic and roman char- 
acters. Because it means losing the spe- 
cial characters that had been in the 
font, this approach trades text impov- 
erishment for font impoverishment, and 
is still a long way from support for the 
kind of hypertext link identification seen 
in products such as Guide. 


HyperWords and HyperLines 
The other problem with Chang’s tech- 
nique, viewed as an approach to hy- 
pertext linking, is that it depends on 
the select operation, which is nicely 
standardized across the Macintosh-user 
interface, but which is not a technique 
designed for grabbing links. This is 
particularly so in HyperCard, where the 
user can’t select text unless the field is 
unlocked — in which case the text is 
subject to modification. You certainly 
don’t want the user selecting a hypertext 
link only to delete it from the document 
by a careless touch of the delete key. 
Many stackware developers have 
found the same fix for this problem. 
To allow the user to select a word in 
any field simply by clicking on it once 
as though it had a button attached, you 
do the following: 


% lock the field 

% wait for a click in the field 

% save the coordinates 

% unlock the field invisibly 

% send two clicks to the coordinates 
% save the selection 

% relock the field 


The first significant implementation 
of the single-word link I know of is 
XrefText by Frank Patrick (available as 
shareware from BMUG or BCS). Raines 
Cohen of Team BMUG inspired this 
shareware quasi-hypertext system, 
which lets users create links from arbi- 
trary single words in fields by option- 
clicking, and lets them follow these 
links by simply clicking. XrefText limits 
its search for the selected word to a 
keyword field on every card. The link 
words are identified by an asterisk. 

This works well for selecting a single 
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SAMPLE resetprn.Ist  ResetPRN v1.02 Sourcer Listing 2-May-90 4:22 pm Page 1 
PAGE 60,132 
OUTPUT RESETPRN 
Full : 
Aone . oe 

automatic : Passes: Analysis Flags on: H 
Program 

header 
Assembler segment para public usel6 

directives assume cs:seg a, ds:seg a, ss:stack seg b 


resetprn far 
658€ :0000 start: 
658£:0000 £B 23 j short loc 1 
658E:0002 52 65 7 'ResetPRN v1.02', ODh 


Determines FS 


data areas 658E:0011 40h 
dt ene ODh, OAh, ‘Reset Printer? $' 
7001 
aH type 658E :001F 
658E :0025 
; 658E :0025 cs 
Detailed 658E :0026 2 
658E:0027 . dx,offset data 3 : (658E:0013=0Dh 
comments | ésee:o0z, _ 
658E :002C j ; DOS Services ah=function 09h 
. ; display char string at ds:dx- 
Simulator Goer O0eE 
658E :0030 : DOS Services ah=function Olh 
follows ; get keybd char al, with echo 
658E :0032 eee 
segment — 658E 0034 j short loc 3 ; Jump if not equal 
chan es - 658E:0036 ds,data 2 ; (658€:0011=40h) 
g 658E :003A dx,ds:@prn port_1  ; (0040:0008-378h) 
658E :003E ' 
658E :0041 ‘ 
658E :0043 ; ; port 37Ah, printer-2 contro] 
80386 and ; al = 8, initialize printer 
658E:0044 66! B9 00020000 ecx, 20000h 
80486 658E :004A loc loop _2: 
658E:004A 67! E2 FD locloop 2 ; Loop if ecx > 0 
support 658E:0040 BO OC al,0Ch 
658E:004F EE dx,al ; port 37Ah, printer-2 contro] 
; al = OCh, init & strobe off 
658E :0050 loc_3: 
658E:0050 8B4 4C 5 Se Bee 
Easy to 658E:0052 CD 21 ; OOS Services ah=function 4Ch 
; terminate with al-return code 
read resetprn 
seg a 
format . 


stack seg b ---- 


segment para stack usel6 
db 192 dup (OFFh) 


6593:0000 OOCO[FF] 
stack seg b ends 


end start 





(Source code output and inline cross reference can also be selected) 
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word, and I’ve found it a useful way 
to allow the user to select an item from 
a scrolling list, even when the items in 
the list are not single words. My tech- 
nique, which handles moved or scrolled 
fields, is shown in Listing Three, 
page 153. 

This technique is all right for picking 
a line from a field, but neither this nor 
the toggle-lock-and-simulate-double- 
click technique for picking a single word 
is something you want to be. doing 
regularly in an interpreted language. 

One serious problem with all these 
approaches is that not every key can 
be a single word or a complete line. 
Footnotes in linear text sometimes ap- 


ply to a single word, but can also apply 
to a sentence, paragraph, chapter, 
proper name, or to the general idea of 
a passage. Hypertext links ought to be 
just as flexible. 


From SuperScript to Tagsterisk, or 
Footnotes of the Future 

John Anderson, when he was develop- 
ing stacks under the Acme Dot logo, 
came up with something he called the 
“tagsterisk,” a tool for identifying for 
the reader not only where links are in 
the text, but also what they are. “The 
idea,” he said, “is to give the reader a 
clue indicating just where he or she 
will branch if he or she clicks on a 
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tagged word.” Tagsterisks are just al- 
phabetic superscript characters to be 
used in the way that asterisks are used 
in linear text to point to footnotes. An- 
derson implemented them as part of 
his custom font. 

Tagsterisks, he claimed, “give the 
reader a greater feeling of control over 
the hypertext process. The key is to use 
no more than three or four.” One An- 
derson stack used four tagsterisks: s to 


flag a source reference, m for more 


information on the subject, g for a 
graphic, and p for pronunciation (the 
last two being hypermedia rather than 
hypertext). Another stack used p for a 
picture, gfor a graph, dfor a definition, 
and /to bring up a list of links to other 
documents on the subject. Only the 
last of these was actually implemented 
as a link to another card or stack; the 
other three tagsterisks triggered pop- 
up windows or fields. 

Tagsterisks are not tied to any par- 
ticular method of implementing the link, 
which could be done with a button 
over the text, a field script, or with 
whatever technique is included in Ver- 
sion 2 of HyperCard. It’s worth noting 
that, if the linking script is associated 
with the tagsterisk character itself, it 
becomes possible to attach two or more 
links to one word, say, a picture and a 
definition, without ambiguity. 

Hypertext has been called the ex- 
tended footnote, but only as a refer- 
ence to its closest analog in linear text, 
not as a design direction. Tagsterisks 
take the expression literally, extending 
the footnote in several dimensions. 
There are some advantages to this ex- 
tended footnote approach over, say, 
boldfacing links in text. One could ar- 
gue, for example, that hypertext ought 
to extend the concept of text, not limit 
it. Using boldface to represent links 
“uses up” this font style variation, pre- 
cluding its use for other purposes. The 
proponent of boldface links could 
counter that every use of boldface in 
linear text is really a wannabe link. 
Maybe our typographic conventions and 
type style variations were developed 
precisely to circumvent the limitations 
of the linear medium. If so, boldface 
has been waiting all this time to be 
used for hypertext link identification. 
The response might be that it’s a little 
naive to think that we haven’t found 
other, nonhypertextual uses for these 
typographical conventions over the cen- 
turies. 

It’s not clear that either side of this 
argument is wrong. No doubt different 
techniques are appropriate for differ- 
ent purposes. Designers of training manu- 
als, help systems, and the like seem to 
be doing all right with boldface and 
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italic variations to identify links. Uni- 
versal hypertext may require something 
else, but universal hypertext is some- 
thing else. 

Whether or not one buys the argu- 
ment that hypertext should extend text 
and not limit it, it seems clear that Hy- 
perCard should stop limiting its users’ 
use of text. The impoverished text fields 
of HyperCard have not helped research 
in this area, either to investigate ways 
to use text style variations to identify 
links, or to show that this is a bad idea. 
HyperCard needs richer text fields. 

Hypertext, though, is still very much 
in the research stage, and HyperCard 
stack development is one legitimate 





form of hypertext research. The labora- 
tory studies, valuable as they may be, 
are not going to tell us much about the 
market acceptance of particular user- 
interface implementation decisions re- 
garding hypertext. I recommend that 
anyone interested in hypertext down- 
load some stacks and take a look at 
them. Even better, upload some. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 


or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings Cower- 
case) at the log-in prompt. 
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C PROGRAMMING 


HYPERTREE: A 
Hypertext Index 
Technique 


rogrammers tend to think of hy- 
pertext in ways that we use it in 
our applications. A frequent use 
in our experience is in on-line 
help systems where the help text is 
organized into a structured set of help 
windows. You get to a help window 
as a result of some context-sensitive 
control, perhaps with the cursor on a 
keyword or the program at a particular 
place in a menu or data entry screen. 
The help system then allows you to 
select higher and lower levels of detail 
of help from keywords strategically po- 
sitioned in the current window. Such 
help systems use lightweight hypertext 
concepts, but they are the ones we are 
most familiar with. 
The real potential of hypertext tech- 


nology comes when we consider using’ 


it for structured retrievals from large 
static text databases. Many disciplines 
deal regularly with such data. Lawyers, 
engineers, programmers, doctors, pro- 
posal writers, and researchers of all 
kinds work constantly with large 
amounts of boilerplate text. Hypertext 
offers a way to build structured and 
disciplined retrieval capabilities into 
these databases. 

The heart of most heavy-duty hy- 
pertext applications is the index. To 
find your way to an associated body 
of text from a selected word or phrase, 
you need an index that translates the 


Al Stevens 








word into a pointer, into the text data- 
base. Last February we built an index 
system for our TEXTSRCH project that 
used a hashing technique to derive the 
pointer to a list of files where a selected 
keyword exists. That index technique 
was useful to the purpose of TEXTSRCH, 
which was the selection of files that 
match a Boolean keyword query. This 
application is a form of hypertext, but 
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it too is a lightweight use of it. 

This edition of the “C Programming” 
column looks at a different indexing 
technique, a loose adaptation of the 
the B-tree, one that offers a more heavy- 
duty kind of support to the problems 
of text searching. Besides providing 
the random selection of the hashed 
keyword, the B-tree allows you to navi- 
gate an index in the sequence of its 
keys as well. This facilitates the kind 
of search where a selected word deliv- 
ers a list of words that are close, for 
example. 

The B-tree is a data structure resem- 
bling an inverted tree. The root is at the 
top of the tree and the leaves are at the 
bottom. Each node contains key val- 
ues, and each key value points to the 
node at the next lower level in the tree 
where values reside that are greater 
than it and less than the next adjacent 
key. The lower nodes are child nodes, 
the higher ones are parent nodes. Mixed 
metaphors, these families and trees. The 
pointers in the nodes at the bottom 
level — the leaves — are not node point- 
ers but instead contain data values that 
match the keys. B-trees are typically 
used by database management systems 
to manage the indexes for primary and 
secondary data element keys. To sup- 
port such applications, the traditional 
B-tree algorithms must be capable of 
adding keys in a random sequence and 
deleting them. I published the C lan- 
guage source code for such B-tree al- 
gorithms in two books, C Development 
Tools for the IBM PC (Brady Books, 
1986) and C Data Base Development 
(MIS Press, 1987). 

The modified B-trees that we will use 
to index a static hypertext database do 
not need to support key deletion, and 
the index construction can be done in 
the sequential order of the keys. These 
two features greatly simplify the code 
needed for tree maintenance. Because 
the index construction techniques are 





different, the trees of this method are 
not always precisely balanced after the 
fashion of B-trees. Every B-tree node 
below the root always contains at least 
half the number of keys that it can hold. 
This is because when a node is filled to 
capacity, it splits into two nodes to ac- 
commodate the next key. When it splits, 
the key value from the middle goes into 
the node above it in the tree. When a 
key is deleted, the node is combined 
with one of its sibling nodes if the two 
together can now hold the keys of both. 
The modified B-tree structure for this 
problem does not work that way. We 
add keys in sequential order, so the 
nodes fill up from left to right. No split- 
ting occurs, and all but the rightmost 
node at each level will be full. Because 
the index supports a static database, no 
key deletion ever happens. 

Our index is different from the B- 
tree in one other way. A B-tree consists 
of nodes each of which can contain a 
fixed number of keys. By definition, 
the key length is fixed if the node length 
is fixed. In our trees, the node length 
is fixed and the key length is variable. 

We call this data structure the “Hyper- 
Tree.” It consists of a header record 
and some number of nodes. The header 
record contains the node number of 
the root node. Each node contains a 
header block and an array of variable 
length keys. The node header block 
contains a flag indicating whether the 
node is a leaf or not, a pointer to the 
node that is a parent to the current 
one, and a pointer to the node at the 
next lower level that contains keys that 
are less than the keys in this node. 
Each key in the array contains the string 

-value of the key and a pointer to the 
node at the next lower level in the tree 
that contains keys greater than the cur- 
rent key and less than the next adjacent 
key in this array. 

When the node is a leaf, the key 
pointers and the node header’s pointer 
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to lower keys serve a different pur- 
pose. They contain some value that is 
relevant to the key. In some applica- 
tions they will point to a data record. 
In others they will be the data record. 
Perhaps they point to a list of data 
records. The function of the key value 
is independent of the operation of the 
HyperTree. When you add a key, you 
add its associated key value. When you 
retrieve a key, you retrieve its value. 
The HyperTree, therefore, serves two 
retrieval objectives: It tells you if a key 
argument exists in the index, and it 
delivers the key value associated with 
key arguments. 

Listing One, page 154, is <hyprtree.h>, 
the header file that describes the Hy- 
perTree structures. It defines several 
global values that you will change to 
suit your needs. The first one to con- 
sider is NODELEN. This is the byte 
length of a HyperTree node. If the node 
is too short, it will contain a small num- 
ber of keys, and the tree will have 
many levels. This circumstance would 
affect retrieval performance because 
each search must navigate all the levels 
of the tree. If the node length is too 
long, the individual node searches, 
which are serial, would be affected. 

The next value in <hyprtree.h> is 
MAXLEVELS, the maximum number of 
levels in a tree. This value is a function 
of the average number of keys in a 
node and the total number of keys in 
the index. You can conservatively set 
it to a safe high value such as 10. Ten 
levels of HyperTree would be a big 
index, indeed. The value itself is used 
as the dimension for an array of point- 
ers. We need some value to use, be- 
cause we do not know the upper limit 
until we reach it at run time. 

MAXKEYLENGTH is used to limit the 
length of a key string. This value will 
depend on your application. It pre- 
vents a key from completely occupy- 
ing a node. You should set it so that 
each node can contain at least three 
maximum-length keys. This will assure 
the correct behavior of the HyperTree 
algorithms. 

You will need to consider the 
KEYVALUE typedefin <hyprtree.h>. As 
shown in the listing, KEYVALUE is a 
long integer. That usage will support 
the examples that follow, which use 
the KEYVALUE as a pointer into a file. 
KEYVALUE could be any valid C type 
including a structure. Remember that 
each leaf node will contain KEYVAL- 
UEs for the keys, so do not make them 
too long. If each key in your Hyper- 
Tree is a vector to some complex data 
structure, put that structure into its own 
file and use the KEYVALUE as a pointer 
into that file. 
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Building a HyperTree 

Listing Two, page 154, is <addkey.c>, 
the code needed to build a HyperTree. 
To prepare for this process, you need 
to have selected your keywords and 
phrases from the text database and 
sorted them into the collating sequence 


The program searches 
the HyperTree by using 
the findkey function 





of the tree. The search algorithm de- 
scribed later assumes a case-insensi- 
tive collating sequence. You must pro- 
vide the data value to associate with 
each keyword. That data type is de- 
scribed in <hyprtree.h> as the typedef 
KEYVALUE. The value will be the value 
returned by the searching algorithms. 
It could be a pointer to the text posi- 
tion in a text file, or it could be a 
pointer to a data structure that describes 
files, chapters, and paragraphs. Depend- 
ing on the architecture of your Hy- 
pertext database, the KEYVALUE value 
could have the database document, chap- 
ter, and paragraph identifications en- 
coded into its bit string. The important 
thing here is that you have prepared 
to build the HyperTree by extracting 
keywords, combining each of them with 
a data value to be returned, and sorting 
them. We'll have an example of that 
process later in this column. 

In some applications, it might be 
appropriate to further process the keys 
following the sort. The duplicate val- 
ues would be deleted, and the data 
value associated with each key value 
would become a pointer into a more 
complex data record or structure that 
describes the location and significance 
of the key value. 

Building the HyperTree consists of 
reading the keys in sequence and fill- 
ing nodes. When a node is full, the 
next value is added, in sequence, to 
the next higher node with the node 
number of the current node as its asso- 
ciated data value. Subsequent keys are 
added to a new node at the same level 
as the one that filled up. This upward 
growth is a recursive operation. 

You call the addkey function to add 
nodes to a HyperTree. Its parameters 
are a pointer to the key’s string and the 
KEYVALUE associated with the key. 
The first time you call this function, it 
creates the index file. When you are 
done adding keys, you call it with a 
NULL key string pointer to tell it to 


finish up. The addkey function calls 
the recursive addkeyentry function. This 
function is the tree-level manager for 
adding keys. The calls to it from addkey 
specify that keys are to be added to level 
zero. The addkeyentry function calls 
itself by specifying progressively higher 
levels as nodes fill and the tree grows. 

Each node contains the node num- 
ber of its parent. This data element 
supports the search of a HyperTree 
and so must be built when the tree is 
built. Because parents are growing when 
the children are fully grown — these 
metaphors are backwards, it seems — 
the program does not know the parent 
node number until the parent is filled. 
The adopt function takes care of that. 
When the writenode function writes a 
node, it scans the node and extracts the 
node numbers of each of its children. 
Then it calls the adopt function to write 
the parent’s node number into each of 
the node records of the children. 


Searching a HyperTree 

Listing Three, page 156, is <srchtree.c>, 
which contains the functions that search 
a HyperTree. Several of the functions 
modify the position of the search point- 
ers to a key. Others return the key’s 
string or associated value. 

The first search function is findkey. 
You pass it a pointer to a string that 
contains the key value you want to 
find. If it finds a match, it returns a true 
value. Otherwise it returns a false value. 
In either case, it positions the search 
pointers to the key that terminated the 
search. You may now call current_ 
value to retrieve the KEYVALUE of the 
key that terminated the search, or cur- 
rent_keystring to retrieve the key’s string 
value. This latter function is useful when 
findkey returns a false value to 4 say 
that it found no matching entry in the 
HyperTree. The terminating key is the 
next highest one in the collating se- 
quence of the HyperTree. 

There are other search functions that 
are used to navigate the HyperTree in 
its collated sequence. These are /irstkey, 
lastkey, nextkey, and prevkey. They mod- 
ify the search pointer’s position, and 
subsequent calls to current_ keyvalue 
and current_keystring will reflect the 
new position. Each function returns a 
true value if it can satisfy the request. 
If firstkey or lastkey returns a false value, 
the index is empty. If nextkey returns 
a false value, the search pointers are 
already positioned at the end of the 
HyperTree’s collating sequence. If 
prevkey returns a false value, the search 
pointers are already positioned at the 
beginning of the HyperTree’s collating 
sequence. 

The findkey search of a HyperTree 
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(continued from page 136) 

begins at the root node. The search 
functions find the root node number 
by reading the HyperTree header rec- 
ord. To search the tree, the function 
searches the root node for a match on 
the argument. Keys are recorded in 
sequence in a node, so the search pro- 
ceeds from left to right. If the key is not 
there, the function picks up the node 
pointer to the left of the key that termi- 
nated the search, reads that node, and 
starts over. This continues until the 
search either finds a match or termi- 
nates in a leaf node. 

When you request the KEYVALUE 
by calling the current_keyvalue func- 
tion, the search algorithm must navi- 
gate from the Key’s position in the Hy- 
perTree’s system of levels to the leaf 
level. KEYVALUEs exist only at the leaf 
level. Higher levels contain pointers to 
lower levels. If you land on a key ina 
non-leaf node, you find the KEY VALUE 
by navigating down to the leaf this 
way. Begin by reading the node pointed 
to by the pointer just to the right of the 
matching key. Then read the node 
pointed to by the lower-key node 
pointer in the header block of the cur- 
rent node. Continue doing that until 
you reach a leaf. The lower-key pointer 
field contains (in a union) the KEYVALUE 
of the matching key. It doesn’t make 
sense when I explain it, but it really 
does work that way. 


A HyperTree Example 

To put all this to use, I devised a simple 
hypertext-like application that builds a 
HyperTree index from a text file and 
lets you search it. We begin with some 
text file to test with. It should be made 
of unadorned ASCII with CR/LF pairs 
terminating each line. Use your editor 
to mark some key index values in the 
text by surrounding the keys with an- 
gle brackets (less-than, greater-than 
pairs). Make lots of keys. Now we can 
build a HyperTree. 

Listing Four, page 158, and Listing 
Five, page 158, are <keyextr.c> and <key- 
build.c>, two simple filter programs to 
build the HyperTree. You must link the 
object file from <keybuild.c> with that 
from <addkey.c>. Compile <keyextr.c> 
by itself. Run the two programs along 
with the SORT filter (assuming MS- 
DOS) this way: 


keyextr < textfile.dat i sort | keybuild 


where <textfile.dat> is the name of the 
file of ASCII text. The <keyextr> pro- 
gram extracts the key values you marked 
with angle brackets into a quoted string, 
which is followed by a comma and a 
numeric value that represents the key’s 
position in the text file. The extracted 
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file would look like this: 


“fortran”, 125 “the merry widow’, 
257 “godfrey daniel”, 3244 


The SORT filter sorts the extracted 
values and pipes them to the <keybuild> 
program, which builds the HyperTree. 
That’s all there is to that. You can look 
at the index with a dump utility. Its 
name is <hyprtree.ndx>. 

To use the new HyperTree index, 
you will build the example program in 
Listing Six, page 159, <hyprsrch.c>. Its 
command line specifies the text file 
name and a key string to search, such 
as this one: 


hyprsrch textfile.dat “windows on 
the world” 


The program searches the Hyper- 
Tree by using the findkey function. It 
then displays a screen of text starting 
at the text position represented by the 
KEYVALUE of the key that terminated 
the search. The top of the screen shows 
the actual key value that was found 
along with the position. The bottom 
of the screen is a menu that lets you 
press F, L, N, P, or Q to move to the 
first, last, next, or previous key, or to 
quit and terminate the program. 


HyperTree Extended 

The small example we used here is 
merely a taste of how you can use the 
Hypertree data structure. The technique 
could be used as the retrieval engine 
for a spell checker or thesaurus pro- 
gram. It could be used as an inverted 
index to other documents from within 
a document. It could even be used in 
the concordance-like retrieval system 
that we built into TEXTSRCH. 

There are some areas where Hyper- 
Tree could be enhanced. Here are a 
few that come to mind. 

In the example application, we do 
not bind the index to the file it indexes, 
requiring instead that you name the file 
on the command line. Your applica- 
tion would no doubt manage this asso- 
ciation for the user. One way would 
be to include the text file’s name as a 
part of the TREEHDR structure. 

Because the HyperTree node con- 
tains keys in a collated sequence, you 
could add the data compression tech- 
nique called “run length encoding” to 
the node structure. Many adjacent keys 
will begin with identical character se- 
quences as in this list: 


program 
programmer 
programming 
progress 
prototype 
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A simple escape sequence could spec- 
ify how many characters the key inher- 
its from the one that preceeds it. The 
list might then look this way: 


program 
\ 7mer 
\ 8ing 
\ 5ess 
\ 3totype 


The random-then-sequential proper- 
ties of HyperTree make it a natural for 
wild card retrievals. If you use the ? 
character in the first position of a key 
(‘?obbs,” for example), you would do 
searches on all combinations of the 
key with letters and numbers in the 
first position. If the question mark was 
further into the key (for example, 
“Doc?or Dobbs”), you would use the 
findkey function to position yourself 
near the likely match and the nextkey 
function to retrieve all the possibilities, 
discarding those that do not fit. 


Hypertext Editing 

There are two programmer’s editor 
tools — BTAGS and 4C — that offer Hy- 
pertext-like features to the PC program- 
mer who is working with a system that 
involves a lot of source code files. We'll 
look at each of them in turn. 

BTAGS is a program that you use 
along with the Brief programmer's edi- 
tor. Brief is one of the most popular 
programmer’s editors for the PC and it 
includes a comprehensive C-like macro 
language. BTAGS is a source file pre- 
processor and a set of Brief macros 
that implement a feature similar to the 
one used in the Unix vi editor. Here is 
how it works. 

The BTAGS program builds a “tags” 
file by reading all your source files and 
finding where all the functions are de- 
fined. The tags file conforms to the 
Unix ctags format, which identifies each 
function identifier, the file where it is 
declared, and a string taken from the 
declaration. The string is built so that if 
the editor searches the file for the string, 
it will find the function declaration. 

The BTAGS brief macros add com- 
mand keys to the Brief editor. With the 
cursor on a function call, you press 
Ctrl-T, and the macro opens a new 
Brief window, reads the file where the 
function is declared, and positions the 
cursor on the function declaration. If 
you are not near a call to the function 
you want, Ctrl-E lets you type in a 
function name. Ctrl-B returns you to 
where you were before the last Ctrl-T 
or Ctrl-E. 

BTAGS works only with function dec- 
larations and typedefs. It would be bet- 
ter if it also recorded external variables 
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and structure members. Another minor 
annoyance is that the Ctrl-T macro 
works only if the cursor is on the first 
character of a function name. You get 
the Brief macro language source code 
for the macros, so you could hack a fix 
to that one if you wanted to. 

4C is a programmer’s editor that is 
similar to BTAGS in that its source code 
analyzer program produces a ctags- 
compatible tags file. 4C produces ctags 
records for all the C language con- 
structs, not just function declarations. 
4C includes its own editor, which uses 
the tags file to allow you to jump around 
through your source files by putting 
the cursor anywhere on a variable name 
and pressing a function key. If you do 
prefer to use your own editor, you can 
tell 4C to call it instead of its own. 

The 4C editor and its invocation of 
a user-specified editor employ a dis- 
play strategy that I find unnatural. If 
you call up the main function, that’s all 
you get. You cannot page beyond or 
ahead of it. If you call another function 
or variable, that’s all you see. I find it 
frustrating to have to call a function by 
name when I already know that it ap- 
pears within scrolling reach of where I 
am at the time. 

At SD90 last February, the 4C folks 
were showing a new version of 4C that 





they plan on releasing later this year. 
The enhanced version provides inter- 
faces to a variety of editors, including 
Brief, Multi-edit, Vedit, ME, and Slick, 
while the source-code analyzer sup- 
ports C++, object-oriented Pascals, 
Modula-2, and ASM. The database query 
allows lookups by filename and direc- 
tory and, for object-oriented languages, 
lookups by class and class hierarchy. 
The upshot is that I like the BTAGS 
integration with Brief because Brief is 
the editor I use. I like 4C’s inclusion of 
all the C constructs in their tags file. 
Both products use source analyzers that 
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produce ctags-compatible tags files, so 
I tried the obvious. I used 4C to build 
a tags file and BTAGS brief macros to 
process them. Of course it did not work, 
but on the surface it looks like some 
hacking would bring it into line. Per- 
haps later. 


Availability 

All source code is available on a single 
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tax) to Dr. Dobb’s Journal, 501 Galves- 
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Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings Cower- 
case) at the log-in prompt. 
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The Science/Engineering/Graphics Tools are a 
collection of general purpose routines which solve 
the most common data analysis and graphics 
problems encountered in science and engineering 
applications. All of the routines are supplied on 
disk in the source code of the target language 
and can be used royalty free when compiled into 
an application program. A 150 page manual 
describes the form, function, and parameters of each 
procedure and function. Theses tools are available 
for Turbo Pascal 4.0, 5.x, Turbo C 1.5, 2.x, Microsoft 
C 5.x and QuickC, QuickBasic 4.x and Microsoft 
Fortran 5.0 for IBM compatibles. 

Ordering Information 


Model# Version Price 
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IPC-TC-006 Turbo C V 2.x $ 79.95 
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IPC-QB-006 QuickBasic V 4.x $ 79.95 
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FEATURES 

100% Royalty Free 

100% Source Code 

CRT Graphics Adapter Support - the graphics 
libraries use the graphics routines supplied with the 
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Hardcopy support - Epson MX, FX and LQ printers, 


HP plotters, HP Laserjet and Thinkjet printers, 
Toshiba 24 pin printers and other devices 


Science/Engineering charting routines - Linear, 
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line, scatter, pie, bar charts and contour plotting. 











Select Graph Type <1-3> or Q to Quit 
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3-D plotting - translation, scaling, rotation, and 
perspective routines 

Statistics - mean, mode, standard deviation, 
Standard error, etc. 

Multiple Regression - With summary statistics 

Curve Fitting - Polynomial and cubic splines 

Simultaneous Equations - real and complex 

Fourier Analysis - Forward and inverse FFT, 
Rectangular, Parzen, Hanning, Welch, Hamming, 
and Exact Blackman Windows, 2-Dimensional FFT, _ 
Power Spectrum, FIR Digital Filtering | 

Matrix Math - Real and complex 

Complex Number Arithmetic 

Eigen values and vectors - Cyclic Jacobi 

Integration - Simpson’s method 

Differential Equation - Runge-Kutta-Fehlberg 

Root Solving - Bisection, Newton and Brent 
methods 

Data Smoothing 

Special Functions - Gamma, Beta, Bessel, error, 
hyperbolic trig, orthagonal polynomials 

RS-232 Support - all versions include an interrupt 
driven RS-232 driver 


® 
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PO Box 26, Newton, MA 02164 USA 
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USE THE FAIRCOM* TOOLBOX AND 
GET BOTH 4GL SPEED AND 
C SOURCE CODE POWER. 
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speed and convenience of 4GL pro- 
gramming or the low-overhead 
power capabilities of C source code, 
the FairCom ToolBox can meet the 
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developer! 
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Develop applications the way you 
want with The ToolBox’s industrial 
strength tools. 
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File Management by c-tree® 
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# Client/Server architecture 
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segments 


= Dynamic space reclamation 
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environments 


w Variable length key fields 
a High speed B+ trees 


Report Generation by r-tree® 
=» Complex multi-line reports 
a Multi-file access 
=» Complete layout control 
» Conditional page breaks 
a Nested headers and footers 
a Unlimited control breaks 
a Dynamic format 
specifications 
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a Powerful set functions 


POWER AND FLEXIBILITY 


Now you can create applications 
using the methods you like — 
whether it’s 4GL convenience or C 
source code power. You can have it 
all with FairCom’s introduction of 
The ToolBox Special Edition. And at 
5695 you get this power at a price 
you can afford. 


ORDER TODAY 


Order the FairCom Development 
ToolBox and use it for 30 days. No 
risk. If the FairCom ToolBox doesn’t 
meet your development needs, just 
return the entire package for a full 
refund. 
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The ToolBox, 
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The ToolBox, 

Special Edition ..................°695.00 
Microsoft, Borland, Xenix, 

OS2 Object Libraries, single 

user only. 


Upgrade to 
Professional Edition 
Includes overnight delivery. 


5400.00 


Pe 
FAIRCOM 
sr corporation 


4006 West Broadway 
Columbia, Missouri 65203 
(314) 445-6833 
FAX (314) 445-9698 


CIRCLE NO. 128 ON READER SERVICE CARD 


ET ET TT ET TT Te ee rrr EE 





dl, KBHK.TV, Sa n Francisco, 


Or of e, 


re 


SE, 











Of course they need__ 


completely different kinds of editors. 
That’s why they both use BRIEF. 


Let's face it. There’s no such thing as two pro- 
grammers who think alike. Or who work alike. 

Because everybody’s got their own style, their 
own habits. Their own quirky little requirements. 
As well they should. So, where are you going to 
find one editor that satisfies everyone? Simple. 
Look inside a BRIEF® box. 


It’s the right editor, right out of the box. 


What you'll find inside is an enormously power- 
ful, astonishingly easy, and highly-evolved pro- 
gram editor. One that works at blinding speed. 
And that’s loaded with features designed 
to help you be more productive. 
One guaranteed to give you 
excellent results within one 


New BRIEF 3.0 highlights 
* With our new C-like macro lan- 
guage, CBRIEF, C programmers can 
write macros on the fly and not have 
to switch between C and a different 

macro language. 

* The new source level debugger works 
with both the original BRIEF syntax and 
the new CBRIEF macro language. 

* Maximum lines per file has been increased 
to 4 billion. 

* We've added to and improved template editing 
and smart indenting for ADA, Cobol, BASIC, FORTRAN, 
Modula-2, Pascal, and C. 

* We've added editable, multiple keystroke macros that can 
be saved and restored. 

* You can even save and restore your window set-ups. 

Plus the features that made BRIEF famous. 

* 300-level UNDO safety net 

* Flexible windowing, unlimited quantity 

* Unlimited number of files 

* File size limited only by disk space 

* Regular expression search and replace 

* BRIEF’s LISP-like macro language 

* Toll-free tech support 


International Distributors: England (0763) 73457 
Belgium (3) 829 0581 












short hour of booting up the first time. 

You'll find features like automatic indenting, 
infinite windowing, and powerful regular expres- 
sion searching that goes well beyond the ordinary 
text-matching you're probably used to. 

You'll also find the features that made BRIEF 
famous. Including our near-miraculous UNDO, 
that doesn’t just un-delete your last keystroke. 

It actually reverses the effect of any command. So 
you can explore, experiment, even make gigantic 

mistakes with hideous consequences, and just 
“undo” them. And then continue to undo, 
backing-up through 300 steps. 

What you want is what you get. 
What you'll also find is an editor that 
delights in adapting itself to you. With 
the simple, menu-driven SETUP pro- 
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STRUCTURED PROGRAMMING 


Chasing Bubbles in 
the Waterbed 


old fusion, huh? Well, I can top 

that: I have a waterbed that breaks 

down water into its component 

gases without electricity. I’m not 
sure what these gases are. They could 
be hydrogen and oxygen, or I suppose 
they could as well be carbon dioxide 
and xenon. I’m not macho enough to 
perform any conclusive experiments. 
About all Iam sure of is that this par- 
ticular waterbed has generated what 
seems like hundreds of cubic feet of 
invisible gas since being filled with equal 
parts water and Algae-Go-Bye-Bye in 
May of 1987. 

Every week or so I have to chase Mr. 
Byte off the comforter, yank the bed- 
clothes off the waterbed, and wheedle 
ten zillion little bubbles around under 
the vinyl with my old slide rule, merg- 
ing tiny bubbles into small bubbles, 
small bubbles into larger bubbles, larger 
bubbles into Godzillan bubbles, and 
finally letting the single monstrous sur- 
vivor out through the fill hole. Other- 
wise, an ordinary night between the 
sheets can sound like one of those old 
Sea Hunt episodes. 


Dynamic Variables Recap 

Ever alert for the occasional wild meta- 
phor roosting in the rafters, it occurred 
to me that we have this same problem 
in the structured programming world. 
The faulty waterbed is the heap, and 


Jeff Duntemann, Ki6RA/7 


the bubbles — like the ’ole that Ringo 
’ad in his pocket in Yellow Submarine — 
are simply blocks of empty space that 
have been used for awhile and then 
turned loose. 

First, a littke background for those 
who work in languages such as Basic 
that do not support explicit memory 
allocation and deallocation. Pascal and 
Modula-2 (and C as well) set aside a 
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certain amount of memory called the 
“heap” and allow the running program 
to create variables out of that memory 
(we say “on the heap”) as needed. 
These variables are called dynamic vari- 
ables to differentiate them from static 
variables, which are named in the source 
code and allocated at compile time, 
and exist in the same form and in the 
same location as long as the program 
runs. When no longer needed, dynamic 
variables are destroyed, or deallocated, 
and the memory they occupied on the 
heap is made available as grist from 
which to create other variables. In both 
Pascal and Modula-2 the allocation rou- 
tine is called New, and the deallocation 
routine is called Dispose. (Turbo and 
QuickPascal have a similar pair of rou- 
tines called GetMem and FreeMem as 
well.) 

Variables created on the heap have 
no names. They are accessed through 
a type of variable called a “pointer” 
that exists solely to “tie” these dynamic 
variables into the program’s reality. The 
pointer (which is declared in the usual 
way variables are declared) is set to 
point to the dynamic variable when the 
dynamic variable is allocated using New: 


VAR 
{ A pointer to type Integer: } 
MyPointer : “Integer; 


New(MyPointer); 
MyPointer™ : = 42 


The caret symbol is the dereference op- 
erator. To specify what the pointer points 
to (rather than to specify the pointer 
itself) you must use the dereference 
operator, as shown in the assignment 
statement. Accessing the item that a 
pointer points to is called “dereferencing 
the pointer” and the item pointed to is 
called the “pointer’s referent.” 





If you could only create dynamic 
variables as referents of pointers allo- 
cated as static variables, it would be 
interesting but not compellingly use- 
ful. Pointers really shine when they are 
used to connect the components of 
entire data structures constructed on 
the heap. Linked lists, queues, stacks, 
and other data structures can be built 
from simple data structures and point- 
ers. This is done by making pointers 
the fields of records: 


TYPE 
DynaPtr = “DynaRec; 


DynaRec = 
RECORD 
StrData : STRING; 
Next : DynaPtr; 
END 


In a linked list, several of these re- 
cords are allocated on the heap such 
that the Next pointer in each record 
points to the “next” record in the list, 
allocated elsewhere on the heap. The 
pointer in the last record is set to a 
value of NIL, which is a sentinel value 
indicating that the pointer points to 
nothing. 

Standard procedures exist to query 
the system and find out how much free 
heap memory is available. The Mem- 
Avail function returns the total number 
of bytes of free memory on the heap. 
The MaxAvail function returns the size 
in bytes of the largest single chunk of 
memory on the heap. 


Heaps of Holes 

This is a powerful concept, but there’s 
a worm in it: When you deallocate items 
stored on the heap, the memory where 
the item had been, becomes a “hole,” 
the exact size of the item. This hole is 
available for use in allocating future 
dynamic variables, but obviously, you 
can’t allocate a variable any larger than 
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the variable that created the hole by | der, side by side. If you allocate 100 
going poof. | records in a row, use them, and then 

This sounds worse than it often is. | deallocate all 100 records at once; the 
Items are allocated on the heap in or- | “hole” resulting from the deallocation 


_____| There may be agreat deal of 
———| free space onthe heap, but 


all of it may exist 
_ too small to be us 





Figure 1; A fragmented heap 
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will be contiguous, the size of the full 
100 records. Problems arise when you 
allocate a great many items of varying 
sizes on the heap, and deallocate some 
but not others, especially if the deallo- 
cation is fairly random. Allocating a 
record in a hole left by a slightly larger 
record can leave a tiny sliver of unused 
memory that isn’t good for anything at 
all. Do this often enough, and you may 
have a great deal of free memory that 
can’t be used at all because it exists in 
a large number of very small chunks. 
This condition is called “heap frag- 
mentation” because the heap becomes 
divided into a great many separate frag- 
ments of memory in varyingly useful 
sizes. Figure 1 represents this condi- 
tion in Pascal or Modula-2. The shaded 
areas represent memory that is in use, 
pointed to by one of the pointers on 
the left. The white areas represent mem- 
ory that is free for use. Note that some 
of the slices are pretty thin, and may not 
be large enough to hold anything use- 
ful to the currently running application. 


The Long Wait for the Garbage Man 

So, what happens if you call MaxAvail 
and the size of the largest free chunk of 
heap memory is less than the size of the 
item you need to allocate on the heap? 
Not much. The best you can do is to try 
deallocating some other items on the 
heap and hope that they'll open up a 
hole large enough to fit the item you 
need to create. If there’s nothing you 
can turn loose, you're stuck. Really. 

When confronted with this problem, 
most people assume there must be a 
way to rearrange the blocks of memory 
on the heap, packing them up nose-to- 
tail so that all the little empty slivers of 
memory collect in one place and add 
up to a single large block of useful 
space again. It’s pretty disconcerting 
to realize that there is absolutely no 
general-purpose way to do this in Pas- 
cal or Modula-2. (Or C, either.) Every 
trick involves making assumptions 
about the order in which items were 
allocated on the heap and other infor- 
mation that varies from application to 
application or even from one run time 
to the next. 

This Holy Grail of gathering together 
all the bubbles in the great waterbed 
of heap memory is what we call ‘“‘gar- 
bage collection.” It is one of the most 
wretchedly difficult things to do in all 
computer science, and in many lan- 
guages it is simply impossible. 

Why? It has to do with the way point- 
ers are implemented in our most com- 
mon implementations of Pascal and 
Modula-2. Pointers are simply machine 
addresses. The “long” pointers used 
in Modula-2 (and all pointers in Turbo 
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(continued from page 144) 

and QuickPascal) are 32-bit addresses 
consisting of a 16-bit segment address 
and a 16-bit offset address. So a pointer 
is just 4 bytes somewhere in the mega- 
byte of 8086 real address space, con- 
taining the address of the memory block 
that the pointer points to. (A M/Z pointer 
contains 4 bytes of Os.) 

The problem with rearranging the 
heap lies in notifying the pointers that 
the addresses of their referents have 
changed. A pointer is an address, so 
you would have to change the value 
of every pointer that pointed to any 
block of heap memory involved in a 
move. The problem with that is simply 
finding all the pointers. Although you 
can always find a pointer’s referent start- 
ing from the pointer, you can’t work 
back from a block of memory to find 
all pointers that point to it. Keep in 
mind that any number of pointers may 
point to a single block of memory on 
the heap, and those pointers may be 
anywhere in memory at all, including 
on the heap, in the code segment, or 
on the stack. Nothing marks a pointer 
as being a pointer; furthermore, nearly 
all 4-byte sequences in memory con- 
tain binary patterns that could repre- 
sent valid addresses. 

So there may be tens of thousands 
of pointers scattered through the mega- 
byte of real address space, and they 
look no different from 4 bytes of ma- 
chine code, 4 bytes of data, or 4 bytes 
of anything. Finding pointers just by 
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Figure 2: The same heap accessed through an array of handles 
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looking for them is thus meaningless. 
And if you can’t find every pointer that 
points to a block of data, you had 
better leave that block of data right 
where it is. That in a nutshell is why 
garbage collection for the standard Pas- 
cal/Modula-2 heap is impossible. 


What Those Other Guys Do 

Outside of the Pascal/C/Modula world 
things are considerably better. Small- 
talk and Actor both support fully gen- 
eral automatic garbage collection on 
their dynamic storage. One reason both 
pick up their trash is that they have to; 
both are large, ambitious systems that 
take up a lot of memory. Without gar- 
bage collection, they would drink their 
heap dry in no time flat. 

Actor contains a mechanism that con- 
stantly scans its stack and dictionary, 
looking for “dead” objects to which no 
references are found. Actor’s dictionary 
is roughly equivalent to a symbol table. 
If a block of memory is allocated for 
an object, and that object is not refer- 
enced in the dictionary or by any other 
object, the block is scavenged and made 
available for new objects. 

This happens automatically, and the 
process continues in the background 
throughout the execution of an Actor 
program. This way, the garbage collec- 
tion overhead (which takes an irritatingly 
large fraction of the CPU cycles de- 
voted to a program’s execution) is 
spread out evenly through a program’s 
life and is thus less noticeable. Some 





older systems performed garbage col- 
lection all at once, which caused the 
executing program to stop dead in its 
tracks (sometimes for minutes at a time) 
while the garbage collector fiddled mem- 
ory around. This happened to me once 
back in my Xerox days while I was 
learning some internal revision of Small- 
talk on a creaky old Alto workstation. 
I was certain the system had croaked, 
but lo! It was only picking up its dirty 
socks, and came back to me after what 
had to be six or seven minutes. 

Actor’s garbage collector works so 
well that there is no dispose message 
to clean up after allocations triggered 
by New, when a program no longer 
needs to work with an object, it cuts 
the object’s space loose by setting its 
internal state to Nil. The scavenger then 
picks up the trash on its next pass. 

Smalltalk/V’s documentation says less 
about its garbage collection system than 
Actor’s, but things seem to work in 
about the same way: When an object 
is no longer referenced, it is removed 
from memory and the memory is re- 
claimed. Unused symbols do accumu- 
late, however, and must be explicitly 
purged and their space reclaimed by 
sending the purgeUnusedSymbols mes- 
sage to the Smalltalk system. 


The Secret of the Middleman 

There are lots of ways to implement 
garbage collection, most of them far 
beyond my understanding. What I will 
explain, though, is the minimum ma- 
chinery that makes garbage collection 
possible. What you need, basically, is 
a middleman. 

I’ve drawn such a middleman in Fig- 
ure 2. Between the pointers scattered 
through the system and the heap itself 
is an array of handles. I’ve shown the 
handles as pointers themselves, but they 
aren't pointers in the same physical 
sense that Pascal and Modula-2 point- 
ers are. A handle is means of access. It 
could be a pointer to the actual block 
of heap memory, or it could be a pointer 
into some larger mechanism that maps 
blocks of storage onto disk sectors, or 
EMS or extended memory. Also, a han- 
dle must contain the size of the mem- 
ory block it points to. I’ve not shown 
this in the figure for simplicity’s sake, 
but a handle might be a very simple 
record containing a pointer to the mem- 
ory block on the heap and a 16-bit 
block size value. 

A handle’s primary virtues are two: 
First of all, for each block of memory 
there is only one handle, and second, 
the system always knows where every 
handle is. I show an array of handles 
in the figure for simplicity; in many 
cases the handles will be arranged as 
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a linked list. The important thing is that 
the handles are stored in a form that is 
always under the system’s control. 

A handle either points to a block of 
memory on the heap or it is set to M/Z 
to indicate that the handle is free and 
may be used. Note in Figure 2 that in 
two cases, two different pointers point 
to the same handle. This is entirely 
equivalent to the situation in Figure 1 
where two pointers pointed to the same 
block of memory on the heap. Any 
number of pointers may point to one 
handle, but only one handle may point 
to any given block of memory. 


Packing the Heap 

The heap shown in Figure 2 is identical 
to that shown in Figure 1, that is, frag- 
mented to the point of being useless. 
Unlike Figure 1, however, the fragmen- 
tation in Figure 2 can be fixed by a little 
scavenging. Because the system knows 
where every handle is located, and be- 
cause each handle points to one mem- 
ory block and each memory block has 
only one handle pointing to it, the sys- 
tem can eliminate wasted space by mov- 
ing memory blocks together on the 
heap until they become contiguous. 
This condition is shown in Figure 3. All 
of the available heap space is now in 
one large block, and no small slivers 


of memory remain wasted. 
In a practical system, a few more 
things would be necessary, such as a 
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“free list” to keep track of available 
blocks. Both Turbo Pascal and Quick- 
Pascal use such a list, a simple linked 





Figure 3: The heap after garbage collection 
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list of records located on the heap. 

Could a system such as this be built 
‘into a Pascal or Modula-2 compiler? 
Of course. The cost is in speed, and, 
to a lesser extent, in the memory needed 
by the handles and the code to ma- 
nipulate them. Dereferencing a pointer 
to a pointer involves two separate mem- 
ory accesses instead of only one. Also, 
as mentioned before, the garbage col- 
lection task itself takes some time, but 
with some cleverness can be spread 
so thin as to hardly be noticeable, a la 
Actor. 


Breaking Old Habits 
The real problem, though, is breaking 
current code. Turbo Pascal, in particu- 
lar, allows a lot of direct manipulation 
of pointers. If it were as simple as gen- 
erating handle-manipulation code for 
New, Dispose, and the dereference op- 
erator, there’d be little difficulty with 
compatibility. However, a great deal of 
Turbo Pascal code (including a lot of 
my own) make assumptions about the 
nature of pointers that would not jive 
with a handle-based heap manager. 
The most obvious case is building 
pointers from segment and offset ad- 
dresses using the Ptr function. How 
many times have you done something 
like this: 


VAR 
Display : Pointer; 


Display := Ptr($B800,0); 


The last thing you want is for a heap 
manager to decide to move your video 
refresh buffer somewhere a little closer 
to the other bubbles. 

The kicker is that pointers are often 
used for things that have nothing at all 
to do with the heap. And as long as 
pointers point to things that exist at 
fixed locations and cannot (or should 
not) be moved, using handles for heap 
management with traditional pointer 
and dereferencing syntax is going to 
be difficult indeed. 


The Trouble with Objects 

I’m making a very big deal of all this 
because sometime soon the matter of 
heap fragmentation is going to become 
a very serious problem for the new- 
born object-oriented languages. I won't 
speak for C++ because I don’t under- 
stand it very well as yet (though I’m 
trying) but for Turbo and QuickPascal 
we're headed for trouble. 

Heap fragmentation has been with 
us from the beginning, but it’s attracted 
little attention for two major reasons: 

1. Many self-taught Pascal program- 
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mers hit a conceptual wall when they 
encounter pointers, and rather than fig- 
ure them out or yell for help, simply 
work around them. Thus, a great many 
Pascal applications don’t make use of 
the heap at all. 

2. Seasoned Pascal developers who 
use the heap heavily have worked out 
tricks to deal with heap fragmentation. 
These include padding records out so 
that most records allocated on the heap 
are either the same size or convenient 
multiples of the size of the smallest 
record, or massaging an algorithm such 
that records are allocated and deallo- 
cated in order rather than at random. 
“Heap discipline” of this sort is second 


nature to longtime Pascal developers, 
and is considered by many to be part 
of good structured programming prac- 
tice, even though it violates the spirit 
of true dynamic allocation. 
Unfortunately, when you start deal- 
ing with objects in a big way, this kind 
of heap discipline no longer works. A 
linked list of objects no longer contains 
items all of one type. As long as all 
objects in a list are descended from a 
common ancestor (such as the Node 
type shipped as an example with Turbo 
Pascal 5.5) polymorphism allows the 
developer to stop worrying about the 
type of the nodes in a list and let the 
nodes handle their own business 


“Compiler Ads 
Are Confusing?’ 


hey all claim that their products are the fastest and most powerful. 
Buzz words like optimized, integrated, and modular are everywhere —never 
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through virtual methods. When the ap- 
plication has to have carnal knowledge 
of the contents of a list in order to 
make things happen, most of the bene- 
fits of object-oriented techniques get 
lost. Much of OOP’s novelty lies in 
giving individual objects more auton- 
omy, but heap discipline generally 
means orchestrating heap management 
in ways that individual objects — be- 
ing just parts of a larger whole — can- 
not accomplish. 

Compounding the problem is the fact 
that programmers can no longer ignore 
the heap once they start using OOP. 
In QuickPascal a// objects are allocated 
on the heap. You don’t get any choices. 
In Turbo Pascal, objects may be defined 
statically in the data segment without 
involving the heap if you like, but such 
objects may not take part in polymorphic 
algorithms and are considerably less 
useful than objects on the heap. 

So picture it: An ambitious applica- 
tion consisting of dozens or hundreds 
of objects popping into being on the 
heap or poofing into holes more or less 
at random, without the application’s 
being fully aware of individual objects’ 
exact types and hence their sizes. The 
old tricks no longer work, and (to state 
it in line with the metaphor of active 
data) the heap fragments itself to use- 
lessness in record time. 





4c includes: 
* A Source Code Analyzer; 


“ Hypertext Source Code 
Databank for Programmers 


Explore source code! Navigate uncharted logic trails easily! 


The analyzer maps and cross-references 
functions and variables to their respec- 


The Tyranny of the Installed Base 

Both Turbo Pascal 5.5 and QuickPascal 
suffer from this problem, but if a solu- 
tion is out there, QuickPascal will be 
the easier fix by far. Because the in- 
stalled base for QuickPascal is counted 
in the tens of thousands rather than in 
the many hundreds of thousands, there 
is less QuickPascal code to break and 
fewer QuickPascal users to alienate if 
a fundamental syntactic change must 
be made to the language to allow a 
handle-based heap manager. 

But — most remarkably — QuickPas- 
cal may not need to make any syntactic 
changes at all. What I originally thought 
was oversight or sheer clumsiness in 
the Apple Pascal definition (which Quick- 
Pascal follows closely) might hold the 
solution to the whole mess. 

Recall the inconsistent nature of ob- 
ject definition in QuickPascal. Objects 
are defined like records, allocated like 
pointers, and then used like records: 


TYPE 
Figure = OBJECT 
x, < integer; 
Visible : Boolean: 
PROCEDURE Show; 
PROCEDURE Hide; 
END; 
VAR 
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a programmer to edit functions directly 
without specifying a file name. 


A Point-andg-Shoot Zoom Key; 
Which instantly locates any function, 
global variable, structure definition, 
#define statement, or macro, etc., in any 
file, directory, and drive, and displays it 
in a new edit window. 
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and-replace, auto indent, tab support, 
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down menus, or use your own editor! 
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"4dc's Magic is apparent..." 
- PC Magazine, February 1989 
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char #maskarea; 
int px; 

int drivecd; 
struct EDLIST *begamark; 
struct EDLIST ‘endamark: 
int fh: 

char Ibiname!20]}: 
curcat; 
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deletbik() 
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switch (cep-> keyhit) word[40}: * display work 
{ 








case Ret: ret_key; 
case f9: fOkey: 

case f10: flOkey; 
case AItC: cutclip{); 





if ((p->begmark==O0)\ ae 
{ 


















if (pessavanow) { 
cwp->cur_¢c cwdecwp-><_pos=0; 
savanow=NULL;} 
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MyObject = Figure; 


New(MyObject); 
MyObject.A := 17; 
MyObject.Y := 42; 
MyObject.Show; 


Ordinarily, New works only with point- 
ers, but QuickPascal allows New to take 
an object variable identifier as though 
it were a pointer. In fact, beneath the 
surface the variable MyObject is a 
pointer, but once passed to New it can 
be used as though it were the object 
itself and not simply a pointer to a 
nameless block of memory on the heap. 

What’s important is that, regardless 
of its physical implementation, a Quick- 
Pascal object is not accessed through 
pointers. Unless you explicitly declare 
an object as the referent of a pointer 
type, the dereference operator is not 
required to access the object’s methods 
and fields. This means that, if Microsoft 
chose to do so, it could isolate objects in 
an objects-only heap, and implement a 
handle-based manager for objects that 
could include automatic garbage col- 
lection. The name of the object would 
become a pointer to a handle, which 
would then point to the object’s actual 
location on the heap. This does not 
involve redefining pointer syntax or 
the dereference operator, and would 
not break a single line of Version 1.0 
code. For QuickPascal it would solve 
the heartbreak of heap fragmentation 
for objects, which is itchier than psoria- 
sis and lots harder to get rid of. 

I won’t say that this was what the 
designers of Apple Pascal had in mind 
when they chose their somewhat idi- 
osyncratic syntax for object creation 
(though if they contact me I’d love to 
ask them) but it certainly is a potential 
solution aching to be implemented. It 
will have some costs in performance, 
but I suppose we were naive in assum- 
ing that the amazing flexibility of poly- 
morphism would come for free. 

Turbo Pascal’s designers will have a 
much harder row to hoe. There is no 
solution that won't involve breaking 
megalines of existing code. They’re 
clever, those Borlanders; as clever as 
you find in this business and then some, 
but the tyranny of the installed base is 
going to make the Big Fragmentation 
Fix for Turbo Pascal a painful one all 
the way around. 

Would that it were as simple as chas- 
ing bubbles in a waterbed. 


DDJ 
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Listing One (Text begins on page 153.) 


on mousewithin 
~-hypertext technique by Steve Drazga, AnalytX 
--1if you use this in your scripts please include these 2 lines. 
if the locktext of the target is true then 
set locktext of target to false --unlock the field if it is 
locked 
end if 


if selection is not empty then --something was selected 
put selection into SelectedWord 
if space is in SelectedWord then --user selected > 1 word 
click at loc of target --so we will clear the selection 
exit mousewithin --and exit to wait for another 
selection 
end if 
--this is the section where you do something with the selection 
--You can bring up a pop up note or you can go to another card. 


end if 
end mousewithin 


End Listing One 


Listing Two 
on mouseUp 


-- This code, placed in a button script, implements 

-- Harvey Chang’s hypertext trick. The user selects 

-- any text in a field and clicks on the button. 

-- The script first tries to use the selected text as a 
-- hypertext link, then falls back to simple search. 


doMenu Copy Text 
put "Montreal Hypertext, Harvey Y Chang MD, 1988 Jan 16" 
push card 
go to Montreal Hypertext Demo 
doMenu Find... 
doMenu Paste Text 
put "in field " & quote & "Title" & quote after message 
do message 
if the result is "not found" then 
answer "not found in Titles: search text?" with "OK" or "No" 
if it is "No" then 
pop card 
exit mouseUp 
else 
doMenu Find... 
doMenu Paste Text 
put " in field " & quote & "Text" & quote after message 
do message 
end if 
end if 
end mouseUp 


End Listing Two 


Listing Three 
on mouseUp 


-- This is a scrolling field script. Its field must be locked. 
-- It implements an index field, to be placed on the first 

-- card of the stack to be indexed. This is the index card. 

-- When the mouse is clicked inside the field, this script causes 
-- a jump to the card corresponding to the line clicked on. 

-- The line commented out uses the text in the line, 

-- rather than its number, as the link. 


go to card getLineNum(the mouseV) 
-- find line getLineNum(the mouseV) of me in field keyword 


end mouseUp 
function getLineNum mouseVert 
-- Returns the number of the line clicked on. 


-- It works like this: 

-- Subtracting the top, of the field and its scroll from 

-- the mouse’s vertical location gives the 

-- mouse’s vertical location within the field. 

-- Dividing this by the textHeight of the field & adding 0.5 
-- converts pixel counts to line counts. 

-- Rounding gives a value acceptable as a card number. 


-- Note: although this technique should work with any font size, 
-- turning on WideMargins will confuse the count. 

-- To adapt this script to a non-scrolling field, 

-- remove "+ the scroll of me" from the computation. 


return round(((mouseVert - the top of me + the scroll of me) / 
(the textHeight of me)) + 0.5) 


end getLineNum 


End Listings 
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C PROGRAMMING 


Listing One (7ext begins on page 135.) 
(7 Sees hypitree.h. -s-==<<-= si 
/* length of a node */ 


/* tree levels */ 
/* maximum key length */ 


#define NODELEN 256 
#define MAXLEVELS 10 
#define MAXKEYLENGTH 25 


#define TRUE 1 
#define FALSE ! TRUE 


#define KSPACE (NODELEN-sizeof (NODEHDR) ) 
#define HYPERTREE “hyprtree.ndx" 


[* ss36= computes length of a key in a node -------- +f 
#define keylength(nd,kp) (strlen(kp) + 1 + \ 
((nd) .nodehdr.isleaf?sizeof (KEYVALUE) :sizeof (NODEPOINTER) ) ) 


ft mae node pointers and key values ---------- xh 
typedef long KEYVALUE; 
typedef int NODEPOINTER; 


typedef union { 
KEYVALUE keyvalue; 
NODEPOINTER nodepointer; 
} KEYPOINTER; 


fis Sone eee header record for a hypertree: =--<-=---- a 
typedef struct { 

NODEPOINTER rootnode; 
} TREEHDR; 


/* ---- header structure for a hypertree node -------- ey 
typedef struct { 

int isleaf; /* true if the node is a leaf */ 

NODEPOINTER parent; /* node number of parent */ 

KEYPOINTER lower; /* keys < this node (or value if leaf) */ 
} NODEHDR; 


p> eS node record for a hypertree ---------- xy 
typedef struct { 

NODEHDR nodehdr; 

char keys [KSPACE]; 
} TREENODE; 


[i -22==-5==--=5 prototypes --------------- at 
void addkey(char *key, KEYVALUE keyvalue); 

int findkey(char *key); 

int firstkey (void); 

int lastkey (void) ; 

int nextkey (void) ; 

int prevkey (void); 

KEYVALUE current _keyvalue (void) ; 

char *current_keystring (void); 


End Listing One 


Listing Two 


#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include "hyprtree.h" 


static void addkeyentry(int level, char *key, 
KEYPOINTER keypointer, NODEPOINTER lowernode) ; 
static void nullnode(int level); 
static int freespace(TREENODE node); 
static void writenode(int level); 
static void adopt (NODEPOINTER child, NODEPOINTER parent) ; 


static TREENODE *nodes [MAXLEVELS]; 
static NODEPOINTER nodenbr [MAXLEVELS]; 
static NODEPOINTER nextnode; 


static FILE *htree; 
static TREEHDR th; 


/* 
* Add a key string value and its associated KEYVALUE to 
* the hypertree. 
~) 
void addkey(char *key, KEYVALUE keyvalue) 
{ 
KEYPOINTER keypointer; 
if (key == NULL) { 
fe sehea= terminal key, complete the tree ------ */ 
if (htree !'= NULL) { 
int level = 0; 
i write the unwritten nodes -------- at 
while (nodes[level] != NULL) { 
writenode (level) ; 
free (nodes[level]); 
level+t+; 


irae update the header block ---------- */ 
th.rootnode = nodenbr[level-1]; 
fseek(htree, OL, SEEK SET); 


fwrite(&th, sizeof(TREEHDR), 1, htree); 
fclose(htree); 


} 
else { 
keypointer.keyvalue = keyvalue; 
if (strlen(key) <= MAXKEYLENGTH) 
addkeyentry(0, key, keypointer, 0); 
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} 


static void addkeyentry(int level, char *key, 
KEYPOINTER keypointer, NODEPOINTER lowernode) 


{ 


char *kp; 
if (nodes[level] == NULL) { 
j* sss5-s5= build a new node ---------- */ 
if (level == 0) { 
f* iasxeme building a new tree ------ * ff 
htree = fopen(HYPERTREE, "“wb+"); 
f* s-ss= write a NULL header for now ----- x / 


fwrite(&th, sizeof(TREEHDR), 1, htree); 


) 


} 
if ((nodes[level] = malloc(sizeof(TREENODE))) == NULL) { 
fputs("\nOut of memory!", stderr); 
exit (1); 


} 

nodes[{level+l] = NULL; 

nullnode (level); 

/* ---- point to the node of the lower keys --- */ 
nodes[level]->nodehdr.lower.nodepointer = lowernode; 
/* --- assign the next node number to this node --- */ 
nodenbr[level] = +tnextnode; 


} 
if (keylength(*nodés[level],key) > 
freespace (*nodes[level]) ) { 
[% sesSs=== this node is full -------- */ 
KEYPOINTER keyp; 
NODEPOINTER lowernode; 


/* ---- write the node to the index file ---- */ 
writenode (level); 

/* ---- remember the node nbr at this level ---- */ 
lowernode = nodenbr[level]; 

/* --- assign a new node number to this level --- */ 
nodenbr[level] = ++nextnode; 

/* --- grow or add to parent with the current key --- */ 


memset (&keyp, 0, sizeof (KEYPOINTER) ) ; 

keyp.nodepointer = nodenbr([level]; 

addkeyentry(level+l, key, keyp, lowernode) ; 

/* - now set the node at this level to NULL values - */ 
nullnode (level); 

nodes [level]->nodehdr.lower = keypointer; 


else { 
pe s== === insert the key into the node ------ “2 | 
kp = nodes[level]->keys; 
[fe aesee scan to the end of the node ----- */ 
while (*kp) 


kp += keylength(*nodes[level], kp); 
strcpy(kp, key); 
pe SaaS attach the key pointer to the key ----- ay 
kp += strlen(kp)+1; 
if (level == 0) 
*((KEYVALUE *)kp) = keypointer.keyvalue; 
else 
*((NODEPOINTER *)kp) = keypointer.nodepointer; 


[® =aeere=s= buiid a ‘null node =--=<=---<+= ld 
static void nullnode(int level) 
{ 

memset (nodes[level], 0, NODELEN) ; 

nodes [level]->nodehdr.isleaf = level == 0; 


PO meer compute space remaining in a node ------- df 
static int freespace(TREENODE node) 
{ 

int sp = KSPACE; 

char *kp = node.keys; 


while (*kp) { 
sp -= keylength (node, kp) ; 
kp += keylength (node, kp) ; 
} 


return sp; 


[*. =fe=s> write a completed node ------- *y 
static void writenode(int level) 


{ 
long where = (nodenbr[level]-1) *NODELEN+sizeof (TREEHDR) ; 


fseek(htree, where, SEEK SET); 

fwrite(nodes[level], NODELEN, 1, htree); 

if (level) { 
/* - this is a parent node, update its children - */ 
char *kp = nodes[level] ->keys; 
adopt (nodes [level]->nodehdr.lower.nodepointer, 


nodenbr[level]); 
while (*kp) { 
adopt (* ((NODEPOINTER *) (kp+strlen(kp)+1)), 
nodenbr[level]); 
kp += keylength(*nodes[level], kp); 


} 


/* ---- write a parent node number into a child node ---- */ 
Static void adopt (NODEPOINTER child, NODEPOINTER parent) 


{ 
NODEHDR nodehdr; 
long here = ftell(htree); 
long where = (child-1) *NODELEN+sizeof (TREEHDR) ; 


(Listing continued on page 156) 
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I can wre a 4.5 gigabyte OLTP 
database application, with 130 
different record types, that gives 
up to 172 simultaneous DOS LAN 
users L2 second response time. 
All in less than 640K. 


This person is a (check one): 


L] Dreamer 
L Shameless Liar 


L] MDBS IV Developer 


The answer 1s 
“MDBS IV 
Developer” 
Because the 
database appli- 
cation hes 
i. __ . talking about is 
not only possible, but real. It belongs to 
the U.S. Department of Energy's Fermi 
National Accelerator Laboratory. 

Fermi Lab needed an on-line mate- 
rials handling system to track the millions 
of items used by the D.O.E. complex, 
and MDBS IV was the only database 
that allowed them to develop a full-scale 











production application using an IBM 
PC-based LAN. 

No relational database on the 
market could do the job. And even with 
substantial hardware upgrades, none 
could approach the speed of MDBS IV. 

McDonnell Douglas, NASA, Ernst & 
Young, and many others agree. They've 
found that MDBS IV is the only way they 
can get real mainframe performance on 
existing hardware under 640K. What's 
more, MDBS IV applications are easily 
moved from one environment to another: 
DOS, OS/2, UNIX and VMS. And, of 
course, MDBS IV speaks SQL. 


@ mdbs 


MDBS IV: Object/1* KnowledgeMan/2 * GURU 


In every major industry, successful 
application developers are switching to 
MDBS IV because it lets MIS retain 
mainframe-style control of the network 
without a mainframe-size investment. 
Applications are easier to write on PCs, 
too, and this helps them stay on top of 
their applications backlog. 

Call 1-800-323-3629 for a free 
technical white paper on MDBS IV, plus 
case histories that relate to your industry. 
International inquiries, call (317) 447-122. 
Because, for today’s increasingly complex 
database needs, MDBS IV is the only 
right answer. 


1834 Walden Office Square, Suite 250, Schaumburg, IL 60173 
(800) 323-3629/(708) 303-6300/FAX (708) 303-6830 


mdbs, GURU, MDBS IV, KnowledgeMan/2, and Object 1 are registered trademarks of mdbs. Inc. Other brands and product names are registered trademarks of their respective holders. 
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REAL-TIME 
MULTITASKING 
KERNEL 


8086/88, 80x86/88 68000/10/20 
80386 Z80, 64180, 8080/85 


@ Fast, reliable operation @ Intertask messages 

= Compact and ROMable m Message exchanges 

@ PC peripheral support @ Dynamic operations 

@ DOS file access — task create/delete 

@ C language support — task priorities 

mw Preemptive scheduler — memory allocation 

@ Time slicing available @ Event Manager 

® Configuration Builder m@ Semaphore Manager 

= Complete @ List Manager 
documentation 


No Royalties 
Source Code Included 


Manual only $75 US KADAK Products Ltd. 


AMX 86 $3000 US 206-1847 West Broadway 

(Shipping/handling extra) Vancouver, B.C., Canada 
V6J 1Y5 

Call for prices for ak Telephone: (604) 734-2796 

other processors. Fax: (604) 734-8114 
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OVERLAY DRUDGERY 
BITES THE DUST ! 


Introducing Overlay Toolkit. So fast, 
SO smart, SO easy it practically completes 
overlays for you. 

In 4 hours, an analyst who knew nothing of the 


application cut its memory requirement from 
377K to a performance-tuned 198K. Here's how: 


OVERLAY MASTER Truly optimizes for 


speed as well as size in minutes. You supply 
your object code, it creates a tight Plink86plus 
or .RTLink response file. 


OVERLAY PROBE Fine tunes overlays and 


program designs. 


Overlay Toolkit $395. Extended memory version 
(for more than 600 object files), $995. 


LLOYD BUSH, INC. 


156 William Street, New York, N.Y. 10038 
(212) 962-4004 Fax: (212) 608-6669 


Software products since 1971 


1989 Lloyd Bush, Inc. Overlay Toolkit, Overlay Master and Overlay Probe are registered trademarks of Lloyd Bush, Inc. 
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C PROGRAMMING 


Listing Two (Listing continued, text begins on page 135.) 


fseek(htree, where, SEEK SET); 
fread(&nodehdr, sizeof(NODEHDR), 1, htree); 
nodehdr.parent = parent; 

fseek(htree, where, SEEK SET); 
fwrite(&nodehdr, sizeof(NODEHDR), 1, htree); 
fseek(htree, here, SEEK SET); 


Listing Three 
fR (spsasssec= SYCILIeGce. S=sseaeertes af 


#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include "hyprtree.h" 


f® sHSscseee= search packet. <<——-----<- *y 
typedef struct { 

NODEPOINTER node; 

char *ky; 
} SEARCH; 


FILE *htree; 

static TREEHDR th; 
static TREENODE node; 
static SEARCH current; 


static void readnode(NODEPOINTER nodepointer) ; 
static void opentree (void) ; 


/* 
* Find a specified key in the tree. 
* Return TRUE if found. 
* Return FALSE if not found. 
* f 
int findkey(char *key) 
{ 
opent ree (); 
if (th. rootnode) { 
SEARCH save = current; 
readnode (th. rootnode) ; 
while (TRUE) { 
int cmp; 
current.ky = node.keys; 
while (*current.ky) { 
cmp = stricmp(key, current.ky); 
if (cmp < 0) { 
save = current; 
break; 
} 
if (cmp == 0) 
return TRUE; 


current.ky t= keylength(node, current.ky); 


} 
if (!node.nodehdr.isleaf) { 
if (current.ky == node.keys) 


End Listing Two 


readnode (node.nodehdr.lower.nodepointer) ; 


else 
readnode (*((NODEPOINTER *) 


(current .ky-sizeof (NODEPOINTER) ))); 


} 

else { 
current = save; 
readnode (current .node) ; 
break; 


} 
} 
return FALSE; 
} 


/* 
* Find the first sequential key in the tree. 
* Return TRUE if found. 
* Return FALSE if not found (the tree is empty). 
“7 
int firstkey (void) 
{ 
opentree(); 
if (th. rootnode) { 
readnode (th. rootnode) ; 
while (!node.nodehdr.isleaf) 
readnode (node.nodehdr.lower.nodepointer) ; 
current.ky = node.keys; 
return TRUE; 


} 
return FALSE; 


* Find the last sequential key in the tree. 
* Return TRUE if found. 
* Return FALSE if not found (the tree is empty). 
dj 
int lastkey (void) 


NODEPOINTER np; 

opentree(); 

if (th.rootnode) { 
int len = 0; 
np = th.rootnode; 
current.node = th.rootnode; 
current.ky = node.keys; 
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SEARCH save = current; 
readnode (np) ; 
current.ky = node.keys; 
while (*current.ky) { 
len = keylength(node, current.ky); 
current.ky += len; 
} 
if (current.ky == node.keys) { 
readnode (save.node) ; 
current.ky = save.ky; 
break; 
} 
else 
np = *((NODEPOINTER *) 
(current .ky-sizeof (NODEPOINTER) ) ); 
} while (!node.nodehdr.isleaf) ; 
current.ky -= len; 
return TRUE; 
} 
return FALSE; 
} 


/* 

* Find the next sequential key in the tree. 

* Return TRUE if found. 

* Return FALSE if not found (the tree is empty or at the end). 
a 


int nextkey (void) 


opentree(); 
if (th. rootnode) { 
if (current.ky == NULL) 
return firstkey(); 
current.ky += keylength(node, current.ky); 
if (!node.nodehdr.isleaf) { 
readnode (* ((NODEPOINTER *) 
(current. ky-sizeof (NODEPOINTER) ) )); 
current.ky = node.keys; 
while (!node.nodehdr.isleaf) 
readnode (node.nodehdr.lower.nodepointer) ; 


[* saea= while at the end of a node ------ */ 
while (*current.ky == ’\0’) { 
NODEPOINTER child = current.node; 
if (node.nodehdr.parent == 0) 
break; 
readnode (node.nodehdr.parent) ; 
current.ky = node.keys; 
if (child == node.nodehdr.lower.nodepointer) 
break; 
while (*current.ky) { 
NODEPOINTER this = *((NODEPOINTER *) 
(current.ky+strlen(current.ky)+1)); 
current.ky += keylength(node, current.ky); 
if (this == child) 
break; 
} 
} 
return *current.ky != ’\0'; 
} 
return FALSE; 


* Find the previous sequential key in the tree. 
* Return TRUE if found. 
* Return FALSE if not found 
* (the tree is empty or at the beginning). 
x 
int prevkey (void) 
{ 
char *kp; 
opentree(); 
if (th. rootnode) { 
if (current.ky == NULL) 
return lastkey(); 
if (!node.nodehdr.isleaf) { 
[* =sSa= navigate to end of the lower leaf ----- * / 
NODEPOINTER np; 
if (current.ky == node.keys) 
np = node.nodehdr.lower.nodepointer; 
else 
np = *((NODEPOINTER *) 
(current.ky-sizeof (NODEPOINTER) ) ); 
while (!node.nodehdr.isleaf) { 
readnode (np) ; 
current.ky = node.keys; 
while (*current.ky) 
current.ky += keylength (node, current.ky); 
np = *((NODEPOINTER *) 
(current .ky-sizeof (NODEPOINTER) ) ); 


} 
{eo =o while at the beginning of a node ------ a 


while (current.ky == node.keys) { 

NODEPOINTER child = current .node; 

if (node.nodehdr.parent == 0) 
break; 

readnode (node.nodehdr.parent) ; 

current.ky = node.keys; 

if (child == node.nodehdr.lower.nodepointer) 
continue; 


while (*current.ky) { 
NODEPOINTER this = *((NODEPOINTER *) 
(current.kytstrlen(current.ky)+1)); 
current.ky += keylength(node, current.ky); 
if (this == child) 
break; 


(Listing continued on page 158) 
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RimSTAR PM Editor 








RimSTAR 
delivers the 
future today. 


Simply the best programmer's 
editor for OS/2 PM - period! 








This is the programmer's editor 
you or your programming team 
should be using for OS/2 develop- 
ment work. If you're developing for 





OS/2 you need an 
editor that delivers “My copy of BRIEF 
_ has been perman- 
the power OS/2 has ently retired. Keep 
to offer - a native up the good work!” 
PM interface and See 
multitasking. “Sterling work! I 
was very pleased to 
FEATURES: see your close con- 
= IBM SAA/CUA formance with the 
; MDI specification.” 
Multi-document -J.W. 
interface 


mw Unlimited undo and redo; everything 
you do is saved 

m= Compile within the editor and step 
through your errors one by one 

m Fully reconfigurable keyboard - 
includes BRIEF, Epsilon/EMACS & 
Wordstar keyboard mappings 

m Code folding - collapse/expand 
blocks of your code to make it easier 
to follow flow of control or for quick 
navigation 

m= Auto-indent & template editing for C 
(other languages soon) 

m Auto-save so you won't ever lose 
more than a minute's work 

m™ Regular expression search & replace 

m ‘C’-like extension language for 
customization. (REXX support soon) 


RimSTAR PM Editor 


$199 9 





30-Day NO RISK Trial 
Order your copy today! 
800-542-6741 


RimSTAR® Technology 
1 Commodores Court, Suite 503 
Hull, Massachusetts 02045-1300 

617-925-2718 


Other brand/product names are used for identification purposes only and 
may be trademarks or registered trademarks of their respective holders. 
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Listing Three (Listing continued, text begins on page 135.) { 


if (htree == NULL) 


} if ((htree = fopen(HYPERTREE, "rb")) == NULL) { 
/* en go to previous key in node aaa as * / fputs (7\n" HYPERTREE " not found" , stderr) , 
if (current.ky != node.keys) { exit (1); 


} 


kp = node.keys; 
fread(&th, sizeof(TREEHDR), 1, htree); 


while (kptkeylength(node, kp) < current.ky) 










kp += keylength(node, kp); } 
current.ky = kp; } 
return TRUE; 
} | le eccpriesiaraaag read a specified node =-------=------ */ 
} static void readnode (NODEPOINTER nodepointer) 
return FALSE; { 
} long where = (nodepointer-1) *NODELEN+sizeof (TREEHDR) ; 
/* fseek(htree, where, SEEK SET); 
* Return the key value associated with the most recently fread(&node, NODELEN, 1, htree); 
* retrieved key. . current.node = nodepointer; 
* / } 
KEYVALUE current_keyvalue (void) 2 
End Listing Three 
KEYVALUE rtn; 
if (!node.nodehdr.isleaf) { 
SEARCH save = current; 
current.ky += keylength(node, current.ky); ae 
while (!node.nodehdr.isleaf) { Listing Four 
NODEPOINTER np; 
if (current.ky == node.keys) JR: Sagzeedse keyextr.c ---------- * / 
np = node.nodehdr.lower.nodepointer; 
else /* 
np = *((NODEPOINTER *) * Build a test HyperTree from standard input. 
(current .ky-sizeof (NODEPOINTER) ) ) ; * <> delimiters define the key values. 
readnode (np) ; * This is pass one, which builds the sortable table. 
current.ky = node.keys; +} 
} 
rtn = node.nodehdr.lower.keyvalue; #include <stdio.h> 
current = save; #include <string.h> 
readnode (save.node) ; #include "hyprtree.h" 
return rtn; 
} #define KEYTOKEN ’<’ 
return *((KEYVALUE *) (current.ky+strlen(current.ky)+1)); $define TERMINAL ’>’ 
} #define QUOTE vee 
is #define ESCAPE '\\’ 
* Return the key string value of the most recently void main(void) 
* retrieved key. { 
zy . . int c; 
char *current_keystring (void) while ((c = getchar()) != EOF) { 
{ if (c == KEYTOKEN) { 
return current.ky; long fileposition = ftell (stdin) -1; 
} int counter = 0; 
putchar (QUOTE) ; 
/* ~-----~~ open the tree ----------- es while ((c = getchar()) != TERMINAL) { 
static void opentree (void) if (c == EOF 1. counter++ == MAXKEYLENGTH) 
break; 
if (c == QUOTE) 
putchar (ESCAPE) ; 
f . putchar(c); 
Multi-taskine vUrked QNX Protected Mode 
Ke putchar (QUOTE) ; 
FIN77+ FORTRAN SeineE (Malays 
printf("%ld\n", fileposition) ; 
Compiler _ 
} 
- Not everybody has time critical applications or needs the End Listing Four 
awesome networking power and speed of FTN77 + under QNX. 
Some people are happy with a single user DOS system or an 
overburdened mainframe. Southdale Fortran is for the Listing Five 
seasoned professional who can handle the ropes, and ap- 
. ® Wi atin See ee ec eo 
preciates the performance of a tightly networked system that , ai 
imposes virtually no constraints on upwards growth. /* 
* Build a test HyperTree from standard input. 
; * This i three, which builds the H 
With FTN77+, you can network with up to 255 nodes and ee oe ee 
share data, resources, and even CPUs. FTN77 + provides full in- ny 
tertask messaging, resource sharing and complete access to all Heide <stdia te 
of the real-time features and speed that has made QNX so #include <string.h> 
opular #include <stdlib.h> 
pop . #include "hyprtree.h" 
With FTN77+, your tasks may be distributed over many porte sees “ 
: ‘ ‘ efin "\\' 
nodes. Using the combined power of the entire network allows a 
you to build applications which use significant parallelism for void main (void) 
performance far in excess of that available on a single computer fat 
char key [MAXKEYLENGTH+1]; 
Plus Symbolic Debugger, extended memory to 16Mb high crete Enea : 
. . . z eyvaiue; 
speed Graphics, in-line C calls and free tech support/BBS. 
while ((c = getchar()) != EOF) { 
The days of single user systems are numbered, Your users A ae 
expect more and you expect more. Dont be the last to discover char *cp = key; 
wh : while ((c = getchar()) != QUOTE) { 
at those smug and successful integrators already know. Call it (e-me GOR< 1) councects — Rae 
us now and discuss how our Fortran development system can break; 
help you. if (c == ESCAPE) 
: oo c = getchar(); 
*cptt+t = c; 
g } 
® SYSTEMS INC top St \ 0s 
if (getchar() == ',’ { 





char *kp = kv; 


2838 Highay #7 Norval, Ontario, Canada LOP 1KO 
tel: 416 455 9533 fax: 416-455 2529 


QNX is a registered trademark of Quantum Software Systems Inc. 
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while ((c = getchar()) != ’\n’ && c != EOF) 
*kpt+ = c; 
*kp = '\0'; 
keyvalue = atol(kv); 
addkey (key, keyvalue) ; 
} 
} 


} 
addkey (NULL, keyvalue) ; 
End Listing Five 


Listing Six 


ss 


08 3 OF OR Oe OF 


Search the test HyperTree for a match on the 
command-line parameter. 

Display a screen of text starting at the 
position indicated for the matching (or closest) 
entry in the HyperTree. 

/ 


#include <stdio.h> 
#include <string.h> 
#include <ctype.h> 
#include <conio.h> 
#include "hyprtree.h" 


#define SCRLINES 25 
void main(int argc, char *argv[]) 


if (argc < 3) 
fprintf(stderr, "Usage: hyprsrch textfile keyvalue"); 
else { 
int kb = 0; 
FILE *fp = fopen(argv[1], "r"); 
if (fp == NULL) { 
fprintf(stderr, "No such file as %s", argv[1]); 
return; 
} 
findkey (argv[2]); 
while (toupper(kb) != 'Q’) { 
int le = 4, ¢c; 
KEYVALUE kv = current_keyvalue(); 
printf("\n%s (%ld)", current_keystring(), kv); 
Printl ("esse eerr esas s sree sese asses neers S= \n")3 
if (kv) { 
fseek(fp, kv, SEEK SET); 
while ((c = getc (fp) ) '= EOF && le < SCRLINES) { 
if (c == ’\n’) 
lott; 
putchar(c); 
} 


frst, 
last, " 
next, " 
previous, " 
CUI si) 


} 
printf ("\nF 


aoe = 


kb = scene 
switch (coupper (kd) { 
case 'F’: 
firstkey (); 
break; 
case ‘L’: 
lastkey (); 
break; 
case 'N’: 
nextkey (); 
break; 
case ’P’: 
prevkey (); 
break; 
default: 
break; 


End Listings 
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269 MOURN) FERMON ROAD, SCOTIS VALLEY, C 
IN CA: (408)438-1550 FAX:(408)438-5379 BBS:(408)438-5368 (1200/2400) 





MetaWINDOW"" is a complete graphic application development environment that lets 
yOU fap into your creativity, instead of trying your patience. MetaWINDOW gives you over 
200 powertul functions that let you work faster and easier than ever before with 


support fo over 75 popular C and Pascal compilers! 
MetaWINDOW provides industry standard PostScript and X-Window style drawing aut 


and 0 QuickDraw superset that makes it quick and easy to port your existing PC & Mac 
applications. And with dynamic runtime support for over 700 popular graphics cards, you 
won't be wasting time with bothersome configuration sessions! MetaWINDOW also 


provides the ultimate in fast graphics and text drawing functions with extensive rasterOp 


flexibility that makes rubberbanding or dragging complex images a snap! All this, plus full, 
lustrated documentation, free expert technical support, and royalty-free licensing. == 
Call now to receive your free working demo or download direct from our BBS at 

(408) 436-5368! . 











MetaWINDOW............................. 
TurboWINDOW/C (or Pascal)................. $125 
QuickWINDOW/C ......................... 
FontWindow 


30-DAY MONEY BACK GUARANTEE. 


ORDER HOTLINE: 
800-332-1550. 
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The Watcom C Optimizing Compiler 
and Tools has been upgraded to Ver- 
sion 8.0, Watcom announced. The com- 
pany describes this as a complete line 
of professional C development prod- 
ucts for the IBM PC and compatibles. 
Included in this version is support for 
OS/2 run-time libraries and Windows 
run-time conventions, and a 386 source- 
level debugger user interface provides 
multiple windows and mouse support. 
Watcom claims the compiler is better 
in such areas as performance, debug- 
ging capability, multiplatform support, 
language extensions, and performance 
tuning. And C8.0 is run-time compat- 
ible with the new Watcom Fortan 77 
compiler. 

Special versions of the compiler run 
in protected mode on OS/2 or 386 DOS 
systems and use memory greater than 
640K to optimize large programs. A 
new execution profiler for performance 
tuning pinpoints high-use regions of 
code, so you can revise the parts of 
your program that get the most use. 
Expanded language support now in- 
cludes. IBM’s SAA C specification, in 
addition to ANSI C and Microsoft C 
source compatibility. Both C8.0 and 
C8.0/386 are also available in profes- 
sional editions, which provide such fea- 
tures as OS/2 and Windows support, 
the execution profiler, graphics library, 
and 386 protected-mode compiler. The 
386 source-level debugger comes with 
the professional edition of C8.0/386. 
These editions cost $495 for C8.0 and 
$1,295 for C8.0/386. The standard edi- 
tions cost $395 and $895, respectively. 
Reader service no. 20. 

Watcom Products Inc. 
415 Phillip St. 
Waterloo, Ontario 
Canada N2L 3X2 
519-886-3700 


A new hypermedia engine for manipu- 
lating multimedia information objects 
has been released by OWL Interna- 
tional. They have redesigned their hy- 
pertext product, Guide; release 3.0 al- 
lows you to incorporate text, graphics, 
sound, and video images in hyperme- 
dia software for PCs. 

DDJmet with William Nisen, the presi- 
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dent of OWL, who explained that 
“Guide 3.0 has an object-oriented frame- 
work that was rewritten in C. The hy- 
permedia engine manages objects that 
are directly addressable. Developers can 
customize the environment and keep 
the interface simple — one click of the 
mouse can do five things.” He also said 
that in addition to providing the prod- 
uct, OWL provides the services to help 
people with the software. 

A new full-function programming lan- 
guage, LOGIiX, gives you control over 
the Guide hypermedia engine, and al- 
lows you to create customized docu- 
ments; hypermedia linking tools let you 
add multidimensional and versatile ref- 
erencing capabilities; and you can im- 
port and export graphics through in- 
dustry-standard file formats. Other im- 
provements include hypertext links for 
searching interrelated or selected docu- 
ments, document formatting for cus- 
tomizing the graphical user interface, 
text-in-window control of text place- 
ment and line wrapping, document main- 
tenance tools, and Windows compati- 
bility. Guide 3.0 costs $495. Reader ser- 
VICE NO; 2k. 

OWL International Inc. 
2800 156th Ave. SE 
Bellevue, WA 98007 
200-747-3203 


A pop-up file scan and hypertext tool 
for IBM PCs and compatibles, PC- 
Browse, is available from Quicksoft. 
This program lets you view files, find 
lost files, search files for information, 
and link them together, using hypertext. 
One hotkey press can, for example, 
import a text file into a spreadsheet 
application; once in view, it can either 
be printed or pasted into the host ap- 
plication. DOS wildcards allow searches 
in multiple files, directories, or drives, 
and the lookup search finds files with 
sorted records. 

PC-Browse can be used for cross- 
referencing information; words can be 
flagged within whatever word proces- 
sor you use, and then linked within 
files or between two or more files. You 
can customize on-line cross-references 
and make large files more manageable. 
You can also develop menu systems 
for end users, change hotkeys, recon- 
figure buffer size, and customize screen 
colors and delimiter characters. PC- 
Browse is shareware — full registration, 
for $49, includes the software, manual, 
one year of technical support, and a 
quarterly newsletter. OEM licensing is 
also available. Reader service no. 22. 
Quicksoft Inc. 

219 First Ave. N #224 
Seattle, WA 98109 
206-282-0452 


Seminars on online documentation will 
be held this fall in Chicago, Boston, 
and San Jose, sponsored by William 
Horton Associates. These two-day semi- 
nars discuss issues such as the differ- 
ences between paper and online docu- 
ments; what should and should not go 
online; and various types of online docu- 
mentation such as help, hypertext, video- 
text, hypermedia, and tutorials. 

The seminars will also cover the styles 
online documents should be written 
in, options in display design, and the 
various software available for online 
documentation. The kinds of storage 
and delivery media, such as CD-ROM, 
file servers, and local- and wide-area 
networks will also be discussed, as well 
as how to make information accessible 
through menus, indexes, information 
retrieval, context sensitivity, and full- 
text search. The seminars will deal with 
problems such as producing online docu- 
ments with limited staff and resources, 
converting existing paper documents 
to effective online documentation, and 
publishing both paper and online docu- 
ments from a single source. Group ac- 
tivities and hands-on exercises, as well 
as handouts and William Horton’s book 
Designing and Writing Online Docu- 
mentation, are included in the $395 fee 
for the seminars. In-house seminars are 
also available. Reader service no. 25. 
William Horton Associates 
1523 Ward Ave. NE 
Huntsville, AL 35801 
205-536-8207 


HyperEdit, a hypertext program editor 
from SpeedyWrite Software, can sup- 
posedly find any procedure, variable, 
or type, or anything else, anywhere in 
your program, no matter what language 
you use. HyperEdit features the ability 
to view an automatically generated list 
of variable, type, and procedure names 
(to search for parts of names or just 
scroll through the list); to look up call- 
ing sequences for C and Modula-2 li- 
brary functions; to use wildcards in any 
search or look-up command; and to 
design complex searches including base 
conversion, arithmetic, and looking for 
characters in a certain range. Hyper- 
Edit also allows you to work with any 
number of files or languages in the 
same project. 

A smart pair-matching command 
matches any parenthesis, bracket, brace, 
or language-specific pair such as begin 
and end, ignoring parentheses in string 
constants and comments, in order to 
check program balance. Included are 
such programming utilities as a calcu- 
lator, ASCII table, screen-attribute ta- 
ble, and keycode display. Requires an 

(continued on page 1606) 
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SOURCE Taya DEBUGGER 





FOR THE IBM ARTIC CARD. 


ATTENTION ARTIC CARD PROGRAN- 
MERS. Finally, a source level debugger. 
SARTICDB allows source level debugging for 
multiple tasks, and on multiple cards. 
Independent of system unit operating system. 
| (i.e. DOS, 0S2 etc.) No more guess work 
when finding bugs. Exterminate bugs now 
with SARTICDB. Call for more information. 


ATLANTIC FIRMWARE 
(609) 795-9651 
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PRODUCTIVITY! 





FIFTH 32-bit Forth-83 Compiler 


A complete high-productivity programming 
environment! A Browser allows “outline” style 
development and editing of code; a superfast 

| incremental compiler compiles only new or 
changed code each time you leave the editor. 
An excellent debugger and optimizing compiler 
help you generate fast, solid code efficiently! 
INTERACTIVE*EXTENSIBLE*POWERFUL! 


S68 High-speed 68000 Cross-Assembler 


| Fastest cross-assembler running on a PC- 
| class machine! Assembles one megabyte in 
| under seven seconds! Can generate 
| checksums, include symbolic information; 
_ includes macros, conditional assembly, 
| supports S- record, binary, split binary output. 





We provide productivity tools tools for 
professional programmers. Please call us. 


(409) 696-5432 


ie Al Software Construction 
_ 4s | Compan 
©, Company 
Do Of 2900B Longmire 
Le. Y.-S) College Station, Texas 77845 





CIRCLE NO. 356 ON READER SERVICE CARD 


Why you want BATCOM! 
BATCOM is a batch file compiler that compiles 
your ".bat” files to ".exe” files to make them faster, 
more professional, and more capable. BATCOM 
extends DOS with new commands so you can 
read keyboard input, perform arithmetic, use sub- 
routines, and much more. In addition, BATCOM 
protects your source code, and you can distribute 
your compiled programs without royalties. For 
IBM PC. Only $59.95. Order today! 

7 “N, Wenham Software Company 

T e | 5 Burley St. 

\  ¢@ Wenham, Ma. 01984 

(508) 774-7036 
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Th lie Ist pauly lt teas cost t LAN 
Connect 2 or 3 PCs, XTs, ATs, PS/2s, 386s 
Uses serial 
Runs at 11 


rts and 5 wire null modem cable 
baud, up to 90 feet 

Runs in background, totally transparent 
Share any device, any file, any time 


Needs only 14K of ram 
Version 2.33 * OVER 15,000 SOLD 


Skeptical? We make believers! 


- Information Modes 
P.O. Drawer F, Denton, TX 76202 
] 0 : 817-387-3339 Technical, 7 days 
1-800-628-7992 Orders 
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FREE TRIAL 


Pinnacle File Manager 
We guarantee immediate productivity gains 
from using our C file manager library. Simple 
table-and-column view of data with advanced 
B-Tree indexing and hi-speed cache frees your 
brain to solve application-specific problems. 


Vermont Database Corp. 
RR3 Box 6516 
Stowe, VT 05672 


802-253-4437 
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| a a, Ge ae Bag 
Get HEXED -The HEXadecimal EDitor 


Display and edit ALL characters in ANY file. 


¢ Full-featured, menu-driven binary file editing 

¢ Simplicity and power of a text editor 

* Split-screen, simultaneous Hex value\ASCIl symbol editing 
* Easy access to data, header, .OBJ files, etc. 

* For all PCs & compatibles; 256K; DOS 2.0+ 

* $49.95 USA, Canada. $59.95 elsewhere. 


Ideal for program development, patching, engineering. 


Tica Call for FREE Demo Disk. 





141 Peyton Rd. Sterling, Va. 22170 
703-444- TREX 
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B.S. DEGREES 


. from fully-accredited Colleges. We help 
Computer Professionals avoid years of 
unnecessary class work. Get the job offers 





and recognition you deserve. Phone UDA 
for more information and our free booklet 
Career Tactics and Strategies.’ 


University Degree Advisory 
@ 800-765-7272 
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NTED GRAPHICS © 
'H TURBO PASCAL 


GRAPHLINK i is the powerful printer software that does is 

your printer what TURBO Pascal's BGI graphics does for 

your screen—at the printer's resolution! 

GRAPHLINK emulates TURBO'S BGI commands, so 

adding (high-resolution) printer graphics to your program 

is a snap! 

Supports HP LaserJet and DeskJet, Epson, IBM, Toshiba, 

NEC and other printers. 

Only $125 for single-user version, or $250 for Graphlink 

Professional, which includes unlimited distribution license. 

Shipping $5 / $10 /$15 for USA / Canada / other. 

VISITECH SOFTWARE 
D5 3807 Ridgewood Ct. Pittsburgh, Pa 15239 

(412) 733-4775 
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B.Sc. & M.S. in COMPUTER SCIENCE 





The American Institute for Computer Sciences offers 
an in depth correspondence program to earn your 
Bachelor of Science and Master of Science degrees 
in Computer Science at home. BSc. subjects covered 
are: MS/DOS, BASIC, PASCAL, C, Data File 
Processing, Data Structures & Operating systems. 
MS program includes subjects in Software 
Engineering and Artificial Intelligence. 


American Inst. for COMPUTER SCIENCES 


1704-DJ 11TH Avenue South 
Birmingham, AL 35205 


(205) 933-0339 
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Books to help you program 
smarter, faster, and better. 


Mastering C Pointers 

Exploit the full potential of the C language through poin- 
ters! Robert Traister explains exactly what C pointers 

are and illustrates their use in easy-to-follow exercises. 
Covers memory access and allocation, manipulating 
Objects with pointers, pointers to data structures and 
unions, and so on. Includes C programs and exercises. 
May 1990, c. 180 pages, $34.95/ISBN: 0-12-697408-X 


Software That Works 


Michael Ward takes an iconoclastic look at why some 
Software projects succeed and others fail. Gives a real- 
world view of software design, prototypes, data diction- 
aries, dangers of "beefing up" software. Two software 
design projects presented from their inception. 

July 1990, c. 254 pages, $39.95 (tent.)/ISBN: 0-12-735040-3 


To order, call 1-800-321-5086. 
— Quote2 7060 for free postage and handling. — 


Fora free catalog of books, 
— call 1-619-699-6400, or write: 


Academic Press 


Harcourt Brace Jovanovich, Publishers 
Book Mktg. Dept. #27060 1250 Sixth Ave., San Diego, CA 92101 
© Academic Press, 1990. All rights reserved. KL/MJD=27060 
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Face SB oacch MANAGER 


For BASIC, C, FORTRAN, COBOL, or ASM. 
Menu, Data Entry, Pop-up and Pull Down 
Window support for all programmers. TSR or 
Linkable. 100 + page manual. 60-day, 
money-back guarantee. No royalties, Demo 
Available From $99. 

VISA/MC. 


The West Chester Group Inc. 
P.O. Box 1304 
West Chester, Pa 19380 


(215) 644-4206 (800) 525-9244 
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DRUMA FORTH-83 


Break the 64k memory barrier 
Powerful, attractively priced. '83 Standard 
* 1Mb plus automated memory management 
¢ On-line documentation, ASCII/block file 
* Others: windows, modules, profiler-debugger 


¢ Full OS interface & a lot more 
¢ IBM PC/XT/AT and all compatibles 


FREE learn/utility disks offered: INQUIRE 


Druma Inc. 
6448 Highway 290E, E103, Austin, Texas 78723 
Orders: (512) 323-0403 BBoard: 512-323-2402 
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MODULAs2 TOOLBOX 


This library brings the professional touch to yor programs and 
helps you overcome difficult tasks! Features: Create back-up 
routines with the file utilities provided - Redirect I/O to ANY 
device - Stacks & queues only limited by memory - Virtual 
Screen & windowing systems - AUTO-DETECTS video 
adapter type (MDA, CGA, EGA, VGA) - User defined 
menus - RANDOM NUMBERS from within defined limits - 
LARGE assortment of math functions - Disk sector, FAT 
table & directory manipulation, AND MORE! Why waste 
time creating these tools? NO ROYALTIES! Call today to 
order your copy and give your programs the TOUCH. Object 
only: $99. Source Code: $299. VISA & MC accepted. 


PEANUT SOFTWARE INC. 
5045 North Academy Blvd. Suite 279 
Colorado Springs, CO 80918 
(719) 260-0598 
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FIGHT PIRACY & PROTECT 
YOUR PROGRAM $$$’s! 
Stree, 1008, seman wreaisa gang bean 


demand the sionaest protection available, why 
not choose one of these proven leaders”: 


*EVERLOCK Copy Protection 

*EVERTRAK Software Security 

*EVERKEY Hardware “Key” 
Software Security 


Az-Tech Software, Inc. 
305 East Franklin 
Richmond, MO 64085 


(800)227-0644 (816) 776-2700 
Fax (816) 776-8398 


CIRCLE NO. 367 ON READER SERVICE Cann 


Dr. Dobb s oe ee 1 990 


The EDitor 


Powerful UNIX-style programmer's 
editor. For use on IBM or compatible. 
Comprehensive manual included. A 
solid value at only $74.95 (US). 
Available from: 


Blue Jay Systems 
PO Box 608 / Mount Vision, NY 13810 


607 293-8007 
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Turbo VMM 1.1 


Virtual Memory Management 
for use with 
Turbo Pascal 5.5 


VROOMM™ technology in TPS55 applica- 
tions: Swapping of code and data using 
expanded memory, extended (AT-type) 
memory and disk. Improved heap manager 
and plug compatible overlay manager. Full 
TPSS object support. 


$129 w/Pascal source code only 
| $179 w/full assembly source code 


Add $10 for shipping & handling outside 
Denmark. All major credit cards accepted. 


SYNTAX Software 
Helgolandsgade 2 
DK-1653 Copenhagen V 
Denmark 
Phone +45 31 31 92 99 
Fax +45 31 31 82 99 


Fax us and ask for further information. 
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| Opt-TECH SorT/MERGE 


Extremely fast Sort/Merge/Select 
utility. Run as an MS-DOS command 
or CALL as a Subroutine. Supports 
most languages and filetypes includ- 








ing Btrieve and dBase. Unlimited file 
sizes, multiple keys and much more! 
MS-DOS $149. OS/2, UNIX $249. 


(702) 588-3737 


Opt-Tech Data Processing 
P.O. Box 678 - Zephyr Cove, NV 89448 
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INSTALLATION Toor kit 


Acomplete source toolkit of functions in-C, Turbo Pascal or Microsoft 
Basic for DOS installation processes including windowing facilities. 
extensive hardware/system sensing, high performance data compression, 
readme file browsing. MediaBuilder tool automates building of com- 
pressed or uncompressed distribution media. Handles most of the drudg- 
ery of producing slick, professional installation processes, dealing with 
most errors and specific situations. Polite, intelligent modification of 
AUTOEXEC, CONFIG, WIN.INI and other files. Special facilities for 
installation of windows products. Designed for easy international trans- 
lation. Includes INSTALIT and other special installers for various 


situations. No royalties. 
$149 (DOS) 
¢ Helpful Programs, Inc. « 
Central Bank Building, Suite 912 
P.O. Box 16078, Huntsville, Alabama 35802-1627 
Order Visa Master Card or mail, or call 


800-448-4154 _ 
CIRCLE NO. 363 ON READER SERVICE CARD 


STOP SOFTWARE 
PIRACY 


With our Copy Protection Products. They 


_| really work and don't burden the honest user.. 


For Hardware Based Security (Parallel Port) 
e STANDARD KEY TAG Unlimited Runs 
¢ COUPON KEY TAG Limited Runs 
e DURATION KEY TAG Limited (days) 


For Disk Security 
High Level Security 
e PADLOCK II DISK e¢ COUPON DISKS 
e SAFEGUARD DISKS 


For Hard Disk Protection 
e HDCOPY 
Low Level Security - User Installable Protection 
e PC-PADLOCK 


The market is filled with copy protection pro- 
ducts which burden the user or simply don't 


_ | work. we have over 3500 satisfied software 


firms utilizing our systems. The high-level 
fingerprint has not required an update in over 
3 years. 

Why should your valuable data or useful 
software program become available in the 
Public Domain? 


Call or Write for 
more information. 


GLENCO 
ENGINEERING INC. 


SERVING THE SOFTWARE INDUSTRY SINCE 1979 


721 W. Algonquin Rd. (312) 364-SOFT (7638) 
Arlington Hts., IL 60005 FAX 364-7698 Telex 493-7109 
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COMM-DRV 
INTERRUPT DRIVEN SERIAL COMMUNICATIONS 
LIBRARY AND MS-DOS DEVICE DRIVER 


Make your serial communication application interface fast, 
robust, and error free through COMM-DRV. Free user and 














Duplication/Customization 
Services for Programmers 


* Quality Disks from Top Manufacturers + 3.5" Disks in 12 


At Last!! Now there's a way for the FORTRAN programmers to do the things 
they have always wanted to do: Execute other programs via CALL EXEC; 
direct control of the cursor with edit keys; WINDOWS on the screen for POP 
UP HELPs; (*) and (?) wildcard file searches; save/restore screen images; 
























Colors + 5 1/4" Disks in 17 Colors Foil Stamp & Silk Screen technical support. Customization available upon request. COLOR screens. 
; : : ; Supports: 
lesa in YOU Nog» ISON me pce Custom Printed . Multiport serial cards, » 25 plus ports (COM1-COMnh), + Up to siren st pistes in ait ae ‘SPINDRIFT Library includes DOS 
Paper or Tyvek Sleeves + Packaging - Collating ... TO GO! 115200 baud, * XON/XOFF, Hardware handshaking, * Polled Interface (COPY. ERASE. MKDIR. FINDFILE fences eA 
; . and Interrupt driven I/O (Background Processing), * Adjustable merece x. eeuchat-liie spk - et; Vanes 
For more information or FREE brochure, communication buffers, * IRQ sharing, * Operation under Length Strings, Security Routines, Date/Time Routines. 10 SORT Routines, 
call Lisa Clendenen at 1-800-426-3306. multitaskers like Desqview and Omniview. * RE-ENTRANT, « and much more! 


FOSSIL/BBS interface, » Transparent interface to DOS INT21H, 
BIOS INT14H, C's open (), read(), write (), close() and fast direct 
calls. Displays statistic on every port. 





Price $149 plus shipping/handling 
Write for a DEMO DISK $5.00 credited toward purchase. 


Device Drivers and library $39.95 VISA/MC/COD/CHECK Specify your FORTRAN Compiler 
: : Device Drivers, library, and source code - $89.95 . . : 
Rt. 206, Eastampton Business Park, Mt. Holly, NU 08060 & Fresno, CA Tel. 713-498-4832 (24 Hours/day 7 days/week) Spindrift Laboratories, Ltd. 
(In New Jersey, call 609-265-1500) FAX# 609-265-0818 Fax 713-568-6401 re Heiehts illinois 60005 


Willies' Computer Software Co. 
2470 S. Dairy Ashford Suite 188 Houston, Texas 77077 
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(708) 255-6909 








CIRCLE NO. 372 ON READER SERVICE CARD 


PC TIMER TOOLS 


PCHRT is the definitive answer to execution 
profiling, precision timing, and timer tick inter- 
rupt management in a PC/MSDOS environ- 
ment. Over 50 functions manage multiple mi- 
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An Application Developer's Dream 


DataWare FM is for programmers who know 
the importance of structured data design. 
FM is a high-performance data management 
sub-system, invoked by a simple function call 
from your program. If you are tormented b 


of | | ee et EET 







database package nightmares, wake up to F 






gnu ghostscript $45.00 crosecond timers, generate precision delays, 

Special offer (valid thru 7/14/90) AEs oes hase $45.00 insert timers in most any interrupt at a user 
for DOS with sin le-user license....$155 g gé - SSCS CSS SST STS SSS S TSS TSS SS SSS ESET ESSE ESET . specified rate. Utilities to time execution and 

For facts n DataWare M for DOS or OS/2 gnu binutils eecceceeseeseccesscuseseusesesssesssusss $30.00 profile interrupts of any _EXE. Supports TC, LP: 
Call: TE DIG OID svssinccascceteesccce enccecanrnaess $30.00 and MSC. Full library source code included. 
Sound Logic PCCurses + lib ..............:ccceceeeeeseeeeeeees $20.00 oo ppd USA, elsewhere add $40.00. VISA/ 





P.O. Box 8015-196 
Redondo Beach, CA 90277 
(213) 540-6251 


Networks 80-13 87 Road 


Call for more info (201) 206-0320 






PO Box 22 
RYLE Mt. Pleasant, MI 48804 
DESIGN 517-773-0587 
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SWAP PROGRAMS 


XSPAWN replaces the standard C spawn functions 
with functions that can transparently swap most of the 
parent process to expanded memory or disk before 
executing the child process. The parent process is 
automatically restored upon completion of the child 
process. The XSPAWN functions are as easy to use 
as the standard C spawn functions. Includes all 


All MDA/CGA/EGA/VGA/Hercules 
resolutions and colors to 132 x 60 
text! More compatible and easier to 
program than any other. Over 250 
routines, samples, and easy to read 300 page 
manual. Since 1983 - Users include IBM, MS, 
EDS, NASA, and NOAA, FORTRAN Toolkits v. 
5.2: A (ASMUTIL2) $128.00; B (BUTILE) 
$215.00 (includes A); v. 5.1: $165.00. Specify 
compiler. 
IMPULSE ENGINEERING 
P.O. Box 190206 
San Francisco, Calif. 94119-0206 
(415) 788-4611 





source code and libraries for Microsoft C and Turbo 
C. Price $79.95 plus $4 shipping and handling. CA 
residents add sales tax. 
Whitney Software, Inc. 
P.O. Box 4999 
Walnut Creek, CA 94596 
415-933-9019 
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UNDERSTANDING C 


6 hours of videotape gives the in-depth details of the 
ANSI C language. 200 screens of examples teach 
you to write like an experienced pro. Learn about 
structs, pointers, bit fiddling - all the details of C syn- 
tax. 100% satisfaction guaranteed! $74.95 (no extra 


DYNAMIC GRAPHICS LIBRARIES 


Save Development Time! 
Contour, Bar, Pie, X-Y, Log, Spherical 
& 3D Fishnet graphs are autoscaling. 
Dynamic 3D motion of models. Fast 
polygon fill. Write one routine to support 
CGA/EGA/VGA/Herc, PostScript & Dot 
Matrix/Laser/Plotters at full resolution. 
NO ROYALTY! For C, QuickBASIC & 
FORTRAN. Prices begin at $140! 


CHIRP TECHNICAL SERVICES 
Call For Details! (619) 632-9510 


DEVELOPMENT LIBRARIES 
Source always included ! ! ! 


FOR PASCAL, ADA, MODULA-2 and C 





¢ BTrees with core and disk versions $ 42.95 


* Lists, stacks and queues $ 34.95 
* Trees, including binary andheaps $42.95 
REGAN SALES 
PO Box 2204 
Bothell, WA 98011 
(206) 820-2603 Fax (206) 821-7726 
Visa, MC, American Express Accepted 


charge for C.O.D.) Call now for info or C.O.D. 


order. 


1-800-762-5515 


Automation Education 
2309 Royce Dr. 
Arlington, Texas 76016-1232 
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operating environment! 


Introducing... 


Features: 











Scheduler; 












¢ Full DOS Compatibility; 


compatible; 


capabilities; 


Windows; 








users; 


capabilites; 























call or write: 











9550 Ridgehaven Court 
San Diego, CA. 92123 
(619) 565-6656 
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PO Box 4156, Cary, NC 27519 


TLIB” is FASTEST! 





Finally! 


An Operating System which brings Real-Time 
response, multi-Tasking operation, Multi-User 
support, and Presentation Management to the DOS 





T/L Executive ™ 


The ideal software solution for programmers 
developing real-time, multi-tasking, DOS 
compatible application programs or enhancing 
existing DOS application programs. 


¢ Real-Time Kernel, Preemptive Task 
Fast, up to 12,820 task switches/sec (16Mz 
Muli-Tasking, up to 255 prioritized tasks: 
¢ Runs on any PC-XT, AT, PS/2, or 


¢ Efficient, requires only 40KB of RAM; 
¢ Complete Intertask Communication 


¢ User Configurable Operating Parameters; 
e Presentation Management Menus and 


¢ Multi-User Support for up to 35 system 


Execute tasks in up to 8 MB of EMS RAM; 
NETBIOS compatible Networking 


¢ User Programmable Function Call Security; 


For more information about T/L Executive, please 


IL Talton/Louley Engineering 
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0:09 
[aaron 
SRMS"3.2 PVCS” TLIB"3.0  TLIB” 4.10 


Times are to update a 45K library on a PC/XT. PVCS and TLIB 3.0 are 
from Sept 87 PC Tech Journal. SRMS and TLIB 4.10 are later versions. 


“TLIB is a great system” Jim Vallino, PC Tech Journal 


Full-Featured Version Control for Software Professionals. 
Check-in/out locking, branching, keywords, audit trail, wild-cards, 
file lists. Can merge parallel versions and undo intermediate 
revisions. Mainframe compatible deltas for Pansophic, ADR, 
IBM, Sperry. Integrated Landon Dyer PD MAKE. Just $99.95 + $5 s/h. 
5 station LAN license $299.95 + $5 s/h, call for other sizes. MS-DOS 2.x, 3.x, 4.x. 
BURTON SYSTEMS SOFTWARE 
(919) 856-0475 
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Tice Professional SORT FASTER THAN EVER BEFORE! 


Shareware Libraries 














QSORT is the world's fastest sorting util- 
ity that will scream through sorting your 
ASCII or fixed-length binary files, using 
user-definable keys, lexicographically, 
AND MORE! 











Comprehensive, up-to-date, indexed collections of all PD/Shareware 
utilities for professional developers organized by specialty area and 
compressed with PKZIP. 30 day satisfaction quarantee. 

Prod Disks/Files Pri Prod Disks/Fil Pri 
Dbase Lang. 56/1100 $99.50 Assembler 10/170 $49.50 
Novell NW 17/170 $49.50 Dos Utilities 20/200 $49.50 
AutoCAD 18/560 $99.50 C 19/400 $49.50 
Turbo Pascal 18/200 $49.50 Ventura DTP 21/170 $49.50 
Lotus 123 17/200 $49.50 BestGames 30/200 $49.50 
WordPerfect $49.50 Windows $49.50 















































dQSORT will perform the same lightning- 
fast sorting operations on your dBASE 
data files. The awesome speed of 
: ) cameras! dQSORT and QSORT will truly amaze 
CIRCLE NO. 380 ON READER SERVICE CARD _ jf you. 








Credit Cards Accepted (w expir. date!) COD, POs 
EMS, 4505 Buckhurst Ct. Olney, MD 20832 USA 
(301) 924-3594 Fax: (301) 963-2708 

In France: (1)4 7763872 Benelux: 31-20-5753019 
















PROGRAMMERS’ SHAREWARE _ | The QSORT/dQSORT package is avail- 


Language sets. Each disk in these sets is achived ' 

with over 700K of utilities, toolkits, graphics, and able for only $50.00. Order the world's 
windowing support. All include necessary fastest sort utilities today! 
documentation and most include source code. 


Q "320. Microsoft and Turbo C, over 4.5 MB, 7 disks, 


TP4) Turbo Pascal, 4.5 MB, 7 disks, $20 
7 panel) dBASE Ill + Library, over 4.5 MB, 7 disks, 


QO) (ASEM) Assembler rey: over 5 MB, 7 disks, $20 
QO (PROLO) Turbo Prolog Lib., over 3 MB, 5 disks, 


QO BAsld) Turbo and QuickBASIC, over 3 MB, 5 

isks 

Q Windows Boss (LC07) Windows, Pull Down & Pop 

Menus, Data 58 etc. Supports Turbo C, 
Microcod & others - $3.50 per disk, 10 or more 
disks, $3.00 per disk 

Q DeSmet C Compiler (LC15) Full C Compiler, 
LinKer, Assembled! Complete C! First Full C 
Compiler i in Shareware! - $3.50 per disk, 10 or more 
disks, $3.00 per disk. 

Q Integrated Basic Compiler eee Full environment: 
Edit, Compile, Debug and Run all within the 
environment, On Line Help. Much like QuickBA- 
oo $3.50 per disk, 10 or more disks, $3.00 per 


O) Smart Disassembler (LA12) Smart Eabeling 
Disassemble to disk, screen or printer 50 per 
disk, 10 or more disks, $3.00 per disk. 

Q Programmer's Reference Disk (UT30) Hu 
amounts of valuable corer aera "$3. 50 per 
disk, 10 or more disks, $3.00 per disk. 

QO TSR Tutorial (UT31) Complete tutorial with source 
code examples. More! - $3.50 per disk, 10 or more 
disks, $3.00 per disk. 

3.5" Format, Add $1 per disk. 126 ATARI ST disk 
available as low as $1.60 per disk. 



















































System Enhancement Associates 
21 New Street, Wayne, NJ 07470 
(201) 473-5153 


Visa and MC Accepted 
SCO 


@ he ® “dBASE is a trademark of Ashton-Tate 
—™_ 
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GRAPHICS from ANY LANGUAGE 







SEGS-RT, our Scientific & Engineering Graphic 
System Runtime package, is a graphics language 
interpreter that can be executed from any language 
or the DOS prompt. SEGS-RT supports all 
popular video and hardcopy devices and is so easy 
to use, you can program complicated graphs in 
under 5 minutes and view the output in 3 seconds! 
































Free ah Toll-free ordering! 48-hour turnaround! Single User version only $95 
ree 64-page catalogue! VISA/MC! Multi-User version royalty free only $295 
Computer Solutions Northwest 
ae yen Edmond Software, Inc. 800-284-3381 
Benzonia 






(800) 327- 2540 (616) 325-2540 5900 Mosteller Dr. #1125 Oklahoma City, OK 73112 
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FORM FILL-R 


Define forms using the built-in FORM EDIT R 
(or your own text editor). Use FORM FILL-R 
to fill in forms and print them. Send printout to 
a disk file and use as input to your program. 
Or use the output of your program as input to 
FORM FILL-R to make your program print on 
any form. Requires PC (or Compatible) or Z- 
100 computer. $49.95 postpaid. Call/Write 
for catalog. 
















85,000 professional 
programmers will read 
this ad... 


And you could have advertised to 
all of them for about 1/2-cent each. 














Get your advertising message in 
the Programmer's Marketplace! 


Call Glynn Mansfield at 
(415) 366-3600 
















LINDLEY SYSTEMS 4257 Berwick Place, 
Woodbridge, VA 22192 (703) 590-8890 
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S _| No Royalties. 


- [—TINGRAF 2.10 onpnes uy] 


| VIDEO, PRINTER & PLOTTER Graphics Library. Linear, LOG, 


- _| Polar, Smith, Bar and Pie charts. Axes with tick mards & annota- 


_| tion. Multiple plots on a page. Marker and line types. Scalable 
_| fonts. Over 100 routines to make GRAPHICS programming easy 
on IBM-PC/XT/ 


compatibles. 





_ | Versions for: C, 
FORTRAN Quick- 
BASIC and Pascal 


| $295.00 


Full Source code. 











| Sutrasoft 


| 10506 Permian Dr. 


PRESSURE (psi) 
& a a S 4 

























































































‘ : | 77478 
| (713) 491-2088 | “%* 





REVIEWS 


Find "Hands-on" Reviews in 
Seconds! 


| PC Reviews is an easy to use on-line database for 
| Programmers & PC Managers who need to locate and 
read "hands-on"reviews. DDJ, Byte, Data Based Advi- 
sor, PC Today, PC Magazine, Info World and more. 
Natural language front-end helps define search terms. 
A perfect use fora modem. "Very efficient", say users. 


Compatible Technologies Group, Inc. 


88 Fulton St. #2400, New York, NY 10038 
(212) 463-8989 (201) 653-7688 8-N-1 for FREE DEMO 
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85,000 professional 
programmers will read 
this ad... 


And you could have advertised to 
all of them for about 1/2-cent 
each. 


Get your advertising message in 
the Programmer's Marketplace! 


Call Glynn Mansfield at 
(415) 366-3600 


QuickBASIC File Indexing 
Create B+ Tree file indexes in QuickBASIC with 
Index Manager.™ Access files randomly by full or 
partial key, or sorted forward or backward. One 
module performs all functions making IM very easy 
to use. Only indexes managed! You retain full 
control over your data. Assembler code and cache 
buffers make IM very fast. Demo on GEnie and 
CompuServ. Eight sample programs and 64 page 
Users Guide included. Only $59 (+ tax in CA). 
VISA/MC accepted. 

CDP Consultants 
1700 Circo Del Cielo Drive 
El Cajon, CA 92020 
(619) 440-6482 
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(continued from page 161) 

IBM PC or compatible with DOS 2.1 
or later, and 384K of RAM. Hard disk 
recommended, lists for $69.95 for nonedu- 
cational uses, $49.95 for educational 
(single user). Reader service no. 20. 
SpeedyWrite Software 

1600 Grand Ave., Box 1691 

St. Paul, MN 55105 

612-696-6732 


Three hypertext-based reference tools 
are available from Sageline. Write*On 
is a comprehensive reference system 


| that provides rules and tips on ques- 


tions of grammar, usage, and punctua- 
tion. Effective examples illustrate the 
rules, and cross-references are provided 
when necessary. 

GPOStyle is a hypertexted edition 
of the Government Printing Office 
(GPO) Style Manual. While we here at 
DDJ prefer The Chicago Manual of Style, 
GPOStyle is a handy reference to us- 
age. It is not as comprehensive as 
Write*On, however. 

The Shell automatically integrates ex- 
isting and future Sageline reference sys- 
tems, so that they are all accessible 
from one directory. It is packaged with 
the Almanac, a handy but limited refer- 
ence. Categories include computers (char- 
acter tables, numbers, PC extended key 
codes, and more), U.S. history (the Dec- 
laration of Independence, the Constitu- 
tion and Amendments), language (the 
name implies a wider category — but 
one fun feature is the “Quotes for Con- 
templation”), math (useful formulas, loga- 
rithmic identifiers, geometry and trigo- 
nometry functions), science (physical 
constants, statistics on the Sun, Moon, 
and planets, a table of the elements), 
and geography (mail and UPS rates, 
state capitals, area codes, and time 


| zones). Though a lot of work obviously 


went into the almanac, a more compre- 
hensive treatment would be great. 

All three are easy-to-use and well 
referenced. The only drawback is that 
you have to leave whatever application 
you're working in in order to access 
these tools. The Almanac costs $29, 
Write*On is $49, and GPOStyle is $79. 
Reader service no. 27. 

Sageline 

P.O. Box 2346 
Kingston, NY 12401 
800-345-5571 


Hyper!MON, a debugger for the Hy- 
perTalk programming language, is avail- 
able from ICOM Simulations. The com- 
pany claims this is the first tool of its 
kind for HyperTalk programming. It 


—| can find errors within HyperCard scripts 
_ | and immediately modify them. The main 
_| purpose of HyperTMON is to enable 


users to study scripts step-by-step, short- 
ening development time. Access to 
stacks is done simply by cutting and 
pasting the debug button from the Hy- 
perTMON stack. It sells for $99.95. 
Reader service no. 24. 

ICOM Simulations Inc. 

648 S. Wheeling Rd. 

Wheeling, IL 60090 

708-520-4440 


If you’re developing CD-ROM applica- 
tions for Apple systems, you might be 
interested in the CD-ROM Developer’s 
Lab from Software Mart. It is a multi- 
media production reference on CD- 
ROM — a searchable, full-text database 
that contains how-to information on all 
aspects of production. Includes such 
topics as design, programming, data 
preparation, transportability, media pro- 
duction, premastering, manufacturing, 
project management, encryption, and 
data assembly. 

Included are functional applications 
that were created with Media-Mixer, 
another Software Mart product, which 
is a set of subroutine libraries for proto- 
typing and creating full-text or multi- 
media CD-ROM databases and retrieval 
software. The tools for these libraries 
were written in Turbo Pascal and Mi- 
crosoft C. The Developer's Lab also 
includes technical specifications, dem- 
onstrations of off-the-shelf tools for me- 
dia production, and industry contacts 
for the fields of animation, sound pro- 
duction and editing, and high-resolu- 
tion images. Requires a Mac with 1 
Mbyte of RAM, a CD-ROM drive with 
an Apple-compatible SCSI interface, Ap- 
ple CD-ROM driver v. 2.0 or later, and 
a printer. Retails for $795 (Media-Mixer 
usage licenses start at $1,750). Reader 
service no. 29. 

Software Mart Inc. 

4131 Spicewood Springs Rd., Ste. I-3 
Austin, TX 78759-8606 

512-346-7887 


IBM LinkWay: Hypermedia for the PC, 
by Harrington, Fancher, and Black, has 
been published by John Wiley & Sons. 
It is a hands-on guide to understanding 
Link Way, IBM’s version of HyperCard, 
and is suitable for both beginners and 
experienced LinkWay users. It covers 
various components, object-oriented pro- 
gramming, and script commands. And 
it features a multimedia application to 
guide you through the process of com- 
bining media. ISBN 0-471-51298-2, 
$22.95. Reader service no. 30. 
John Wiley & Sons 
605 Third Ave. 
New York, NY 10158 
212-850-6000 
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LZW REVISITED 


Listing One (Listing continued, text begins on page 126.) 


/* This is the main compression loop: Notice when the table is full we try 
* to increment the code size. Only when num bits == MAX BITS and the code 
* value table is full do we start to monitor the compression ratio. 
oe 

while ((character=getc (input) ) 
if (!(++bytes in % 1000)) { 
putchar(’.’); 


'= (unsigned) EOF) { 
/* Count input bytes and pacifier */ 


index=find_match(string_ code, character) ; 
if (code value[index] != -1) 
string code=code_ value[index]; 
else { 
if (next_code <= max code ) { 
code_value[index]=next_code++; 
prefix code[index]=string_ code; 
append_character[index]=character; 
} 
output_code (output, string code) ; /* Send out current code */ 
string code=character; 
if (next_code > max_code) { 
if ( num bits < MAX BITS) { 
putchar(’+’); 
max_code = MAXVAL(++num bits); 


/* Is table Full? */ 
/* Any more bits? */ 


/* Increment code size then */ 


else if (bytes_in > checkpoint) { /* At checkpoint? */ 


if (num bits == MAX BITS > max code) { 


ratio new = bytes out*1l00/bytes in; /* New compression ratio */ 


if (ratio new > ratio old) { /* Has ratio degraded? */ 


output_code(output,CLEAR TABLE); /* YES,flush string table */ 


putchar(’C’); 
num_bits=INIT BITS; 
next_code=FIRST CODE; /* Reset to FIRST CODE */ 
max_code = MAXVAL(num bits); /* Re-Initialize this stuff */ 
bytes_in = bytes out = 0; 
ratio old=100; /* Reset compression ratio */ 
for (i=0;i<TABLE SIZE;i++) /* Reset code value array */ 
code_value[i]=-1; 

} 

else 

ratio old = ratio new; 


/* NO, then save new */ 
/* compression ratio */ 
} 
checkpoint = bytes_in + CHECK TIME; 
} 


/* Set new checkpoint */ 


} 
} 


output_code (output, string code) ; /* Output the last code */ 
if (next_code == max _code) { /* Handles special case for bit */ 
+t+num bits; /* increment on EOF */ 


putchar(’+’); 
} 
output_code (output, TERMINATOR) ; /* Output the end of buffer code */ 
output code (output, 0); /* Flush the output buffer */ 
output _code (output, 0); 
output _code (output, 0); 
putchar(’\n’); 
} 
/* UNCHANGED from original 
* This is the hashing routine. 
sf 
find_match(int hash prefix, unsigned int hash_character) 
{ 


int index, offset; 


index = (hash character << HASHING SHIFT ) * hash_prefix; 


if (index == 0 ) 
offset=1; 
else 
offset = TABLE SIZE - index; 
while(1l) { 
if (code_value[index] == -1 ) 
return (index) ; 
if (prefix _code[index] == hash_prefix && 


append _character[index] == hash_character) 


return (index) ; 
index -= offset; 
if (index < 0) 
index += TABLE SIZE; 
} 


/* MODIFIED This is the modified expansion routine. It must now check for the 

* CLEAR TABLE code and know when to increment the code size. 

Be 

expand(FILE *input, FILE *output) 

{ 
unsigned int next_code=FIRST_CODE; 
unsigned int new_code; 
unsigned int old_code; 
int character, 
counter=0, 
clear flag=1; 
unsigned char *string; 
char *decode_string(unsigned char *buffer, unsigned int code); 


/* Need to clear the code value array */ 


printf ("Expanding\n") ; 


while( (new code=input code(input)) != TERMINATOR) { 
if (clear flag) { — /* Initialize or Re-Initialize */ 
clear flag=0; 
old code=new code; /* The next three lines have been moved */ 
character=old code; /* from the original */ 
putc(old_ code, output) ; 
continue; 
if (new code == CLEAR TABLE) { /* Clear string table */ 
clear flag=1; 
num bits=INIT_ BITS; 
next_code=FIRST_ CODE; 
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putchar(’C’); 
max_code = MAXVAL(num bits); 
continue; 


if (++counter == 1000) { 
counter=0; 
putchar(’.’); 


/* Pacifier */ 


if (new_code >= next_code) { 
*decode_stack=character; 
string=decode_string(decode_stack+1,old_code) ; 


/* Check for stringt+chartstring */ 


else 
string=decode_string(decode_stack,new_ code) ; 
character = *string; 


while (string >= decode_stack) 
putc(*string--,output) ; 


/* Output decoded string in reverse */ 


if (next_code <= max_code) { /* Add to string table if not full */ 
prefix_code[next_code]=old_code; 
append character |[next_codet++]=character; 
if (next code == max code && num bits < MAX BITS) { 
putchar(’+’); ~ 7 ~ 
max_code = MAXVAL(++num bits); 
} 


old_code=new_code; 
} 
putchar(’\n’); 


UNCHANGED from original 

Decode a string from the string table, storing it in a buffer. 
The buffer can then be output in reverse order by the expansion 
program. 


char *decode string(unsigned char *buffer, unsigned int code) 


{ 


} 
/* 


* 


a | 


int i=0; 


while(code > 255 ) { 
*buffert+t+ = append_character [code]; 
code=prefix code[code]; 
if (i++ >= 4000 ) { 
printf("Error during code expansion\n") ; 
exit (1); 
} 
*buffer=code; 
return (buffer) ; 


UNCHANGED from original 
Input a variable length code. 


unsigned input_code(FILE *input) 


{ 


unsigned int return value; 
static int input_bit_count=0; 
static unsigned long input_bit buffer=0L; 


while (input_bit count <= 24 ) { 
input_bit_buffer i= (unsigned long) getc(input) << (24 - input_bit_ count); 
input_bit count += 8; 

} 

return_value=input_bit_buffer >> (32-num_bits); 

input_bit_buffer <<= num bits; 

input_bit_ count -= num bits; 

return (return_value); 


} 
/* MODIFIED Output a variable length code. 


a 


output_code(FILE *output, unsigned int code) 


static int output_bit_count=0; 
static unsigned long output_bit_buffer=0L; 


output_bit buffer i= (unsigned long) code << (32 - num bits - 
7 output bit count); 
output_bit count += num bits; 
while (output_bit count >= 8) { 
putc(output_bit_buffer >> 24, output); 
output_bit buffer <<= 8; 
output bit count -= 8; 


bytes out++; /* ADDED for compression monitoring */ 


End Listing 
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Hyperterminology from Hell 


Hyperception 7 An altered state of consciousness induced by reading hypertext and 
characterized by the inability to focus on single, distinct ideas. Cognitive astigmatism 

Hyperemptory adj Exceptionally abrupt, as a direct hypertext link to a random 
location in RAM 

Hyperennial 7 = Any topic of which computer journalists annually announce that this 
is The Year , such as Unix, networking, OS/2, AI, multimedia, desktop fill-in-the-blank, 
or hypertext 

Hyperenthetical adj Characterized by being a digression within a digression (within 
a digression. . .) The variation in spelling is not arbitrary. The Indo-European root from 
which the par of parenthetical derives is spelled with an e, and means to grant 
reciprocally, with the idea of getting something back. The Indo-European tradition 
that one ought to be able to get something back, or just to get back, from a digression, 
perished with their culture 

Hyperformance 7 Multidimensional ineptitude 

Hyperfume 7 The smell of hype 

Hypergonomics 7 An academic’s idea of a catchy term 

Hyperhaps 7 Goings-on in hyperspace 

Hyperimeter 1 A multidimensional boundary separating the obvious from the irrele- 
vant 

Hyperiodical 7 Any nonlinear serial publication; a journal that appears regularly but 
not regular 

Hyperipatetic gdj_ Lost in hyperspace 

Hyperipheral adj__ Lying beyond the hyperimeter, as opposed to ordinary lying 

Hyperiscope 7 A hypertext navigational aid used when maps and browsers fail; in 
earlier days called a “core dump.” 

Hypermanent store 7 1. The locus of data protected from accidental deletion by 
virtue of being lost; hypertext’s contribution to the architecture of write-only memory. 
2. A bouffant boutique 

Hypermute v.t To rearrange hypertext links randomly. To engage in data annealing 

Hyperparallel adj Skew 

Hyperpendicular adj Skew 

Hyperpetrate vf To implementa hypertext system 

Hyperpilosity 7 A measure of the hairiness of a hypertext system 

Hyperplex 7 A movie theater of the 1990s. If, as has been suggested by no less eminent 
hypermedia experts than Ted Nelson and Paul Heckel, the future of the personal 
computer can be read on the silver screen, we should expect the workstation of 1999 
to run more expensive software with less content and more flash, and to display it on 
six tiny monitors 

Hypersian 7 Persian poet Omar Khayyam, who wrote one of the oldest known non- 
linear documents (later linearized by Edward Fitzgerald as the Rubaiyat) and left this 
advice to readers of hypertext: 
Drink! for you know not whence you came, nor why; 
Drink! for you know not why you go, nor where. 

Hyperu 7 The Andes 

Hyperversion number 7 A complexity measure for hypertext documents 

Hypervert infevj A greeting from one hypertext system designer to another 

Hypuree 7 Hypertext with the links removed 

Hypurgative 7 Garbage collection for hypertext 

Hypurpose 7 = A noble ambition worthy of significant financial backing but incapable 
of being expressed in terms that mere linearists can understand 

Hypursuant adj In accordance with in a higher dimension, as in, “Hypursuant to your 
directive that the staff dress more formally while in the office, I am taking Friday 
afternoon off to go to the beach” 





These hijinks were inspired by Stan Kelly-Bootle’s The Devil's DP Dictionary, McGraw- 
Hill, 1981. . 


MiloL Siradeg 


Michael Swaine 
editor-at-large 
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NOW YOUR SOFTWARE 
CAN TEST ITSELF. 





our customers expect software that works. 
All the time. The key to software quality is 
exhaustive testing. It’s also an engineer’s 
worst nightmare. But it doesn’t have to be. 
Because now you can automate your soft- 
ware testing. 

Introducing the Atron Evaluator. The first and 
only non-intrusive automated PC-based software 
testing tool. 

The Atron Evaluator automatically runs your soft- 
ware regression testing programs. All of them. All 
day. All night. Giving you thoroughly tested, higher 
quality software. 

The Atron Evaluator is hardware-based. And since 
it’s non-intrusive, software behavior is tested with- 
out the risk of alteration. Once your tests have run, 
you can refer to automatically generated test reports 
to double-check test results. 

The Atron Evaluator saves time. And time makes 
you money. Development cycles are shortened, so 
your software gets to market sooner. And while your 
test programs are running, you can be more produc- 
tive. Start a new project. Or go home. 

For more information about the Atron Evaluator, 
call us at 1-800-283-5933. And put an end to your 
worst nightmares. Automatically. 


In Europe, contact: 
Elverex Limited, Enterprise House 
A Division of CADRE Technologies Plassey Technology Park, Limerick, Ireland 
Phone: 061-338177 
Saratoga Office Center QA Training Limited, Cecily Hill Castle 
12950 Saratoga Avenue Cirencester, Gloucestershire, GL7 2EF, England 
Saratoga, California 95070 Phone: (0285) 5888 
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Be ( chine 


Turbo Pascal,° the world-standard Pascal compiler, 
adds Object- Oriented Programming with our new 
version 0.9. We combined the simplicity of Apple’s 
Object Pascal language with the power and efficiency 
of C++ to create Turbo Pascal 5.5, the object-oriented 
programming language for the rest of us. 


It’s easy to extend yourself 


[f you ‘re already programming with Turbo Pascal, 
it’s easy to extend yourself from struc- 
tured programming to object-oriented 
programming. And, Turbo Pascal 5.5 is 
the only compiler that is 100% source- 
code compatible with 
your existing Turbo 
Pascal 4.0 and 5.0 
programs. 


A fast object lesson 


Object-oriented appli- 
cation programs more 
closely model the way 
you think. Objects con- 
tain both data and code. 


As in a spreadsheet cell, the value and the formula 
are together. Objects can inherit properties from other 
objects. For example, a Porsche Carrera inherits most 


Turbo Pascal 5.5 Features 
@ Inheritance m New integrated environment 
@ Static & dynamic objects tutorial 
= Constructors & m Hypertext Help with copy and 
Destructors paste 
@ Enhanced smart linker & 
overlay manager 
= Support for $087/80287/80387 
m Integrated source-level 
debugging 


= Object constants 
= Compiles @ > 34,000 
lines/minute 
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Inheritance provides powerful modeling capabilities by allowing objects 
to inherit attributes from other objects. 


Mail upgrade orders oe Borland, P.O. Box 660001, Scotts Valley, CA 95066-0001. For orders outside the U. S., call (408) 438-5300. 
Turbo Pascal, Turbo Debugger, and Turbo Assembler are registered trademarks of Borland International. Copyright ©1989, Borland Internati onal, Inc. All right reserved. Bl 1324 
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attributes from the base model 911, but it also sports 
a whale tail. 

Turbo Pascal 5.5’s object-oriented extensions 
give you code that’s easier to change, extend, and 
Support. 


Turbo Pascal 5.5 Professional with 
Turbo Debugger® and Turbo Assembler® 


The award-winning Turbo Debugger now includes an 
object inspector and hierarchy browser. 
And Turbo Debugger can debug any 
size program. 


Upgrade objectively 


Pascal owners: 
Upgrading from Turbo 
Pascal 5.0 to 5.5 is only 
$34.95 plus $5 shipping 
and handling ($75 plus 
shipping and handling 
for owners of Turbo 
Pascal 4.0 or earlier). 
And upgrading from 
Turbo Pascal 5.0 and 
earlier to Turbo Pascal 5.5 Professional is only 

$99.95 plus $10 shipping and —— To a 
CALL (800) 331-0877. 


SS. BORLARD oe 8B ORLARD 


BORLA 





